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

[_MBK_]

Просветите несведущего

Мало того, что вы F1 нажать в VBредакторе не можете, вы еще и форум читаете невнимательно? См. мой пост выше - равняет селекшн строго по центру листа, самолично сейчас проверил

 

[BASMACH]

Мало того, что вы F1 нажать в VBредакторе не можете, вы еще и форум читаете невнимательно? См. мой пост выше - равняет селекшн строго по центру листа, самолично сейчас проверил

Не работает хоть тресни

 

[_MBK_]

Что говорит?

 

[BASMACH]

Что говорит?

Молчит и не центрует

 

[_MBK_]

Аааа, у вас небось корел старших версий?
Тогда так:

ActiveSelection.AlignAndDistribute cdrAlignDistributeHAlignCenter, cdrAlignDistributeVAlignCenter, cdrAlignShapesToCenterOfPage, cdrDistributeToSelection, False, cdrTextAlignBoundingBox

 

[foxix2006]

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

 

[_MBK_]

Как вы напишете так и будет

 

[foxix2006]

В представленном виде макрос делает один размер для всех страниц.

 

[_MBK_]

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

 

[foxix2006]

9 корела у меня нет как работает первый вариант я не знаю, а второй у меня работает так , берем скажем документ с тремя страницами на каждой странице прямоугольник (на каждой своих размеров) запускаем макрос первая страница стала размеров расположенного на ней объекта на второй и третей странице объекты остались на своих местах и размер всех страниц одинаковый. Берем переходим на вторую страницу и запускаем макрос, объект центрируется размер страницы становится по размеру прямоугольника, проверяем что на первой там размер страницы стал равный второй странице ну и с третьей тоже самое . Вот как то так. Подскажите что не так? И еще пробовал в х4 версии, не работает вообще, как исправить?

 

[_MBK_]

Попробуйте поменять

With ActiveDocument.MasterPage

на

With ActiveDocument.ActivePage

 

[foxix2006]

Спасибо теперь работает. Подскажите еще что дописать чтоб макрос сам переходил на следующую страницу пока не проделает операцию со всеми страницами? И что изменить чтоб работал в х4 кореле?

 

[_MBK_]

Ну, вероятно, добавить перед ActivePage.Shapes...

For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Activate

а перед End Sub

Next i

А что в X4 не работает? Нормальное выравнивание по моему рецепту исправляли?

 

[foxix2006]

В х4 выдает ошибку, по вашему рецепту пишет " Unable to execut VBA code while in break mode. " а через
SendKeys "p" открывает редактор макросов и выделяет эту строчку желтым цветом.

 

[_MBK_]

По моему рецепту #19 или #25 ?

 

[foxix2006]

Вот так правильно?

Sub Pagesize()
ActiveDocument.Unit = cdrMillimeter
    Dim sel100 As Shape, pa As Currency
    
    For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Activate

ActivePage.Shapes.All.CreateSelection

    Set sel100 = ActiveSelection.Group
    ActiveSelection.AlignToPageCenter (cdrAlignHCenter)
    ActiveSelection.AlignToPageCenter (cdrAlignVCenter)
dl = ActiveShape.SizeWidth
sh = ActiveShape.SizeHeight
With ActiveDocument.ActivePage
        .SetSize dl, sh
          
    End With
 Next i
End Sub

 

[_MBK_]

Если работает то правильно

 

[foxix2006]

Работает как из #25 в х8 , но в х4 не знаю как запустить перепробовал все варианты не работает ((

 

[_MBK_]

в х4 не знаю как запустить

Поподробнее опишите проблему, а то я в самолете

 

[foxix2006]

В х4 запускаю с центрированием
ActiveSelection.AlignToPageCenter (cdrAlignHCenter)
ActiveSelection.AlignToPageCenter (cdrAlignVCenter)
Вылетает ошибка "Unable to execut VBA code while in break mode."
с центрированием
SendKeys "p"
На скрине , нажимаю Debug открывается редактор и желтым цветом подсвечивается строчка SendKeys "p"