Тема: CorelDRAW , макрос

Re: CorelDRAW , макрос

04/02/2008 14:54:44 #Link

Sancho

А зачем он мне?

Re: CorelDRAW , макрос

04/02/2008 14:56:55 #Link

magnus_z

Цитата:

GoodvinVV wrote: Если не сильно отвлеку, но как это сделать? (я с VBA только пару дней )

Если пару дней - то в первую очередь смотреть help по VBA для Corel (для 11-го - DRAW11VBA.HLP, для Х3 - draw_vba.chm). Там много описано, есть примеры.

Re: CorelDRAW , макрос

04/02/2008 15:08:21 #Link

GoodvinVV

Примеры то есть да все как то не то

нет примера присвоить селекции уникальный номер, чтобу потом найти ее по этому номеру

Re: CorelDRAW , макрос

04/02/2008 15:10:09 #Link

GoodvinVV

так... чтобы понять чего собственно хотел Я "изобрести свой велик"

Re: CorelDRAW , макрос

04/02/2008 15:51:32 #Link

magnus_z

Цитата:

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

Доводи до ума сам, исходя из задачи.

Re: CorelDRAW , макрос

04/02/2008 15:52:02 #Link

Ander_OS

Цитата:

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"

Потом по названию разыскать, разгруппировать и обработать.