Re: CorelDRAW , макрос
Написал Ander_OS в 04/02/2008 15:52:02
Цитата:
А если селекцию в группу, и назвать как удобно, можно с числами на конце.
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim s1 As Shape
Set s1 = OrigSelection.Group
Dim nameLogo, mystr
nameLogo = s1.name
s1.name = "Logo"
Потом по названию разыскать, разгруппировать и обработать.
GoodvinVV wrote:
Примеры то есть да все как то не то
нет примера присвоить селекции уникальный номер, чтобу потом найти ее по этому номеру
А если селекцию в группу, и назвать как удобно, можно с числами на конце.
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim s1 As Shape
Set s1 = OrigSelection.Group
Dim nameLogo, mystr
nameLogo = s1.name
s1.name = "Logo"
Потом по названию разыскать, разгруппировать и обработать.
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=80485
