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

Статус
Закрыто для дальнейших ответов.

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
А если #25?
 

foxix2006

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

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Вообще то у меня нет X4 чтобы самому проверить, но их хелп уже вызыват смутные сомнения, что данный метод написан коряво:
upload_2016-11-9_12-24-13.png

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

foxix2006

Участник
Сообщения
24
Реакции
0
Если у Вас есть время посмотрите можно этот макрос объединить с
Код:
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

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

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Перед next s вставьте
Код:
dl = s.SizeWidth
sh = s.SizeHeight
ActiveDocument.ActivePage.SetSize dl, sh
 

foxix2006

Участник
Сообщения
24
Реакции
0
Все работает только есть одно но макрос раскидывает объекты по страницам при этом первая страница остается пустой. Что поправить?
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Ну можно в конце добавить ActiveDocument.PageDelete(1)
 
  • Спасибо
Реакции: Titrex

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Конечно
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Тогда так ActiveDocument.Pages(1).Delete
 

foxix2006

Участник
Сообщения
24
Реакции
0
Да так работает , спасибо огромное!!!
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
  • Спасибо
Реакции: foxix2006

MrDesigner

15 лет на форуме
Сообщения
2 063
Реакции
762

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

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
  • Спасибо
Реакции: andrejK
Статус
Закрыто для дальнейших ответов.