[CDR X5-X8] Как изменить размер документа?

[_MBK_]

А если #25?

 

[foxix2006]

Нет также как на скриншоте

 

[foxix2006]

Блин закрыл редактор и все стало работать ( вариант где я выложил код и справивар о правильности написания) Спасибо за помощь.. Спасибо большое

 

[_MBK_]

Вообще то у меня нет X4 чтобы самому проверить, но их хелп уже вызыват смутные сомнения, что данный метод написан коряво:

Попробуйте нижний вариант вместо верхнего - может поможет?

 

[foxix2006]

Если у Вас есть время посмотрите можно этот макрос объединить с

Sub SpreadPages()
Dim sr As ShapeRange, s As Shape, p As Page, l As Layer
    Set sr = ActiveSelectionRange
    For Each s In sr
        Set p = ActiveDocument.AddPages(1)
        Set l = p.ActiveLayer
        s.MoveToLayer l
        s.AlignToPageCenter cdrAlignHCenter + cdrAlignVCenter
    
    Next s
End Sub

 

[foxix2006]

Получится что объекты с одной страницы будут раскидываться по разным, центрироваться и размеры страницы выравниваться по размеру объектов. В идеале еще экспорт в PDF ко всему этому прикрутить и будет мне счастье.

 

[_MBK_]

Перед next s вставьте

dl = s.SizeWidth
sh = s.SizeHeight
ActiveDocument.ActivePage.SetSize dl, sh

 

[foxix2006]

Все работает только есть одно но макрос раскидывает объекты по страницам при этом первая страница остается пустой. Что поправить?

 

[_MBK_]

Ну можно в конце добавить ActiveDocument.PageDelete(1)

 

[foxix2006]

Перед End Sub ?

 

[_MBK_]

Конечно

 

[foxix2006]

Не получается ошибка(

 

[_MBK_]

Тогда так ActiveDocument.Pages(1).Delete

 

[foxix2006]

Да так работает , спасибо огромное!!!

 

[_MBK_]

Да так работает , спасибо огромное!!!

Вот и чудненько.
Кнопка с пальцем внизу справа

 

[MrDesigner]

Не по теме:
там 2 кнопки. ))))

 

[_MBK_]

там 2 кнопки. ))))

Не по теме:
4 если уж быть совсем точными
но пальцы таки да на двух