To layer? но только не на слои, а на новые страницы?

natibor / 20.03.2014, 20:37
Форум: 
Макросы и скрипты

Вот есть макрос To layer , который переносит объекты каждый на отдельный слой. А есть ли что-нибудь, создающее новые страницы по количеству объектов и располагающее каждый объект на отдельной странице (напр, по центру)?
Спасибо.

shark / 21.03.2014, 17:26

забирай, нужно выделить все объекты и запустить макрос

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
natibor / 21.03.2014, 18:33

Ай, спасиба! (тут смайлик, бьющий поклоны) :)

foxix2006 / 10.04.2015, 11:12

Доброго времени суток ! Подскажите как отредактировать этот макрос чтоб размер страницы изменялся в соответствии с размером объекта . Для более удобного последующего экспорта с помощью макроса wx_exportjpg