Re: CorelDRAW , макрос

Написал Sancho в 04/02/2008 12:03:35

Dim mySelection As ShapeRange, s As Shape
Set mySelection = ActiveSelectionRange
For Each s In mySelection
s. .....
Next s

А в список запоминать эт писать надо. Есть желание оплатить - напишу. Но я вас уверяю проще просто обработать ActiveSelectionRange, написать таким образом что: Выделаяем какие надо объекты, запускаем макрос, Он нас через комбоБокс спрашивает какой набор действий совершить. Указываем и ОК. Перед обработкой можно запомнить активное выделение в отдельный ранж, а затем после обработки выделить этот ранж.