Re: CorelDRAW , макрос
Написал magnus_z в 04/02/2008 15:51:32
Цитата:
Всё там есть - ищи и пробуй. Сам. Для твоего случая может подойти:
Dim s1 As Shape
Dim s2 As Shape
' Задаём имя выделенного объёкта:
Set s1 = ActiveSelection.Shapes(1)
s1.Name = "MamaMylaRamu"
' Тут сам пиши, что нужно - добавление в список, перебор и пр., и пр.
' [...]
' Поиск по имени объекта:
For Each s2 In ActiveLayer.Shapes.FindShapes("MamaMylaRamu")
MsgBox "Я MamaMylaRamu", vbInformation, " Пример"
Next
Доводи до ума сам, исходя из задачи.
GoodvinVV wrote: Примеры то есть да все как то не то
нет примера присвоить селекции уникальный номер, чтобу потом найти ее по этому номеру :-(
Всё там есть - ищи и пробуй. Сам. Для твоего случая может подойти:
Dim s1 As Shape
Dim s2 As Shape
' Задаём имя выделенного объёкта:
Set s1 = ActiveSelection.Shapes(1)
s1.Name = "MamaMylaRamu"
' Тут сам пиши, что нужно - добавление в список, перебор и пр., и пр.
' [...]
' Поиск по имени объекта:
For Each s2 In ActiveLayer.Shapes.FindShapes("MamaMylaRamu")
MsgBox "Я MamaMylaRamu", vbInformation, " Пример"
Next
Доводи до ума сам, исходя из задачи.
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=80484
