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

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

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

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

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

Источник

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
Источник
Другие вопросы по тегам