Нужен макрос или совет как быстрее...

ReiAnna / 22.11.2014, 00:44
Форум: 
Макросы и скрипты

Есть слой в котором, скажем, 150 групп. Каждую группу надо объединить в 1 кривую (ctrl L)
Можно ли это потоком сделать?

shark / 22.11.2014, 21:07

Макрос несложный, так что держи. Перед использованием необходимо выделить все группы

Sub Combine_All()
Dim s As Shape
For Each s In ActiveSelectionRange
    s.UngroupAllEx.Combine
Next s
End Sub
ReiAnna / 23.11.2014, 16:41

Спасибо!

ReiAnna / 24.11.2014, 14:50

Не могу написать Вам ничего через этот сайт! (((((( Пожалуйста, не сочтите за труд, напишите мне в аську (номер указан в профиле).
Или укажите внешние способы связи удобные для Вас.
Заранее благодарна, жду сообщений!