VBA, определить скомбинированный объект или нет

@Dimson_ · Регистрация: 02.11.2016

Всем привет, подскажите пожалуйста, какая команда проверяет скомбинированный объект или нет? Что бы потом BreakAPart командой его разделить. Случайно находил, но не помню, а сейчас очень нужно. Спасибо!

@GeoCod · 04.06.2020, 10:04

Вот что нашел:

Visual Basic

Sub ungroupItemsOnAllPages () 
 
    Dim p As Page 
    Dim j As Long 
 
    Для j = 1 ActiveDocument.Pages.count 
        ActiveDocument.Pages (j) .Shapes.FindShapes (Query: = "@ type = 'group'"). UngroupAll 
    Далее j 
 
Конец Sub

@Dimson_ · 04.06.2020, 11:49 **[ТС]**

Спасибо, но не то. Группы умею находить, нужно именно скомбинированные объекты определять как то..

@Dimson_ · 04.06.2020, 19:17 **[ТС]**

В общем нашёл, можно проверять вот так:
obj.Curve.SubPaths.count > 1

@GeoCod · 04.06.2020, 23:25

Сообщение от Dimson_

нужно именно скомбинированные объекты определять как то

Просто интересно.
Что вы подразумеваете под скомбинированными? И чем они отличаются от сгруппированных?

@Dimson_ · 05.06.2020, 10:23 **[ТС]**

Группировка это одно ctrl+g, комбинирование это другое ctrl+L. Попробуйте, думаю все станет сразу понятно

@GeoCod · 05.06.2020, 11:31

Сообщение от Dimson_

комбинирование это другое ctrl+L

привык, что это называется объединение, а не комбинирование =)

@Dimson_ · 05.06.2020, 12:07 **[ТС]**

А ну понятно,

@_shark · 07.06.2020, 18:07

интересно, если закривить букву "О", то будет ли она считаться скомбинированным объектом?

@Dimson_ · 09.06.2020, 12:58 **[ТС]**

_shark, Привет, получается что будет)), собственно примерно для этого и нужно было

@Dimson_ 3 / 2 / 1 Регистрация: 02.11.2016 Сообщений: 112
		1
	VBA, определить скомбинированный объект или нет 03.06.2020, 20:47. Просмотров 338. Ответов 9 Метки нет (Все метки) Всем привет, подскажите пожалуйста, какая команда проверяет скомбинированный объект или нет? Что бы потом BreakAPart командой его разделить. Случайно находил, но не помню, а сейчас очень нужно. Спасибо! 0

@Dimson_ 3 / 2 / 1 Регистрация: 02.11.2016 Сообщений: 112
	04.06.2020, 11:49 [ТС]	3
	Спасибо, но не то. Группы умею находить, нужно именно скомбинированные объекты определять как то.. 0

@Dimson_ 3 / 2 / 1 Регистрация: 02.11.2016 Сообщений: 112
	04.06.2020, 19:17 [ТС]	4
	В общем нашёл, можно проверять вот так: obj.Curve.SubPaths.count > 1 0

@GeoCod 224 / 135 / 41 Регистрация: 26.01.2019 Сообщений: 479
	04.06.2020, 23:25	5
	Сообщение от Dimson_ нужно именно скомбинированные объекты определять как то Просто интересно. Что вы подразумеваете под скомбинированными? И чем они отличаются от сгруппированных? 0

@Dimson_ 3 / 2 / 1 Регистрация: 02.11.2016 Сообщений: 112
	05.06.2020, 10:23 [ТС]	6
	Группировка это одно ctrl+g, комбинирование это другое ctrl+L. Попробуйте, думаю все станет сразу понятно 0

@GeoCod 224 / 135 / 41 Регистрация: 26.01.2019 Сообщений: 479
	05.06.2020, 11:31	7
	Сообщение от Dimson_ комбинирование это другое ctrl+L привык, что это называется объединение, а не комбинирование =) 0

@Dimson_ 3 / 2 / 1 Регистрация: 02.11.2016 Сообщений: 112
	05.06.2020, 12:07 [ТС]	8
	А ну понятно, 0

@_shark 178 / 177 / 30 Регистрация: 11.10.2016 Сообщений: 567
	07.06.2020, 18:07	9
	интересно, если закривить букву "О", то будет ли она считаться скомбинированным объектом? 0

@Dimson_ 3 / 2 / 1 Регистрация: 02.11.2016 Сообщений: 112
	09.06.2020, 12:58 [ТС]	10
	_shark, Привет, получается что будет)), собственно примерно для этого и нужно было 0

Опции темы