Re: кто-бы смог доработать до ума макрос?

Написал ManYacK в 03/12/2008 7:32:01

ага! есть код который делает то, что мне нужно огромный респект Nikesh за это... вот что получается.

Sub Macro2()
'
' Recorded 02.12.2008
'
' Description:
'
'
ActiveDocument.Pages(1).Activate

ActivePage.Shapes.All.AlignToShape cdrAlignRight, ActiveDocument.MasterPage.DesktopLayer.Shapes(1), cdrTextAlignBoundingBox

Dim CurPage As Page

For Each element In ActiveDocument.Pages(1).Layers(1).Shapes
Set CurPage = ActiveDocument.InsertPagesEx(1, False, ActivePage.Index, 3.346457, 2.125984)
ActiveDocument.Pages(1).Activate
element.Copy

CurPage.Activate
CurPage.ActiveLayer.Paste

CurPage.Shapes.All.AlignToShape cdrAlignRight, ActiveDocument.MasterPage.DesktopLayer.Shapes(1), cdrTextAlignBoundingBox
Next

End Sub


Собственно для работы этого достаточно, с той поправкой, что надо делать некоторую подготовительную работу для его юзания...

Если у кого-то есть есть желание и умение оформить данный скрипт в виде полноценного плагина к Корелу (с функцией позволяющей задавать произвольные координаты объекта), было бы полезно в дизайнерском деле.

Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=92970

Rambler's Top100