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

Question

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

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

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

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

Answer 1

Ну, я немного поохотился и не нашел ничего автоматического. Если вы найдете автоматический способ, пожалуйста, напишите! Я использую следующие макросы в пользовательском трафарете на это, чтобы исправить новые страницы после их создания. Измените значения 1 , 0.625 , 0.4 на любые поля, которые вам нравятся (в дюймах, по крайней мере, при установке Visio и 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