Могут ли фоновые страницы Visio устанавливать поля на переднем плане?

635
cxw

Вопрос. Есть ли способ автоматически задать поля страницы переднего плана в Visio 2007 как поля соответствующей страницы фона?

Ситуация: мой документ Visio 2007 имеет фоновую страницу с портретом и фоновую страницу с альбомной ориентацией. Они имеют одинаковые поля, но повернуты на 90 градусов, поэтому верхнее поле на странице портрета является правым полем на странице альбомной ориентации.

Проблема: если я вставляю портретную переднюю страницу (используя портретный фон), а затем вставляю альбомную переднюю страницу (используя альбомный фон), альбомная страница имеет не повернутые поля портретной страницы.

Ответы VBA хороши, если это то, что нужно. Спасибо за любые идеи, которые вы можете предложить!

1

1 ответ на вопрос

0
cxw

Well, I did some hunting and didn't find anything automatic. If you find an automatic way, please post! I am using the following macros, in a custom stencil per this, to fix up new pages after creating them. Change the 1, 0.625, 0.4 values to whatever margins you like (in inches, at least on a US installation of Visio and Windows).

Public Sub MarginsPortrait() Application.ShowChanges = False With ActivePage.PageSheet .Cells("PageTopMargin") = 1 .Cells("PageLeftMargin") = 1 .Cells("PageRightMargin") = 0.625 .Cells("PageBottomMargin") = 0.4 End With Application.ShowChanges = True End Sub Public Sub MarginsLandscape() Application.ShowChanges = False With ActivePage.PageSheet .Cells("PageRightMargin") = 1 .Cells("PageTopMargin") = 1 .Cells("PageBottomMargin") = 0.625 .Cells("PageLeftMargin") = 0.4 End With Application.ShowChanges = True End Sub

Похожие вопросы