As páginas de segundo plano do Visio podem definir as margens da página em primeiro plano?

Question

Pergunta: Existe alguma maneira de definir automaticamente as margens de uma página de primeiro plano no Visio 2007 para as margens da página de plano de fundo correspondente?

Situação: Meu documento do Visio 2007 tem uma página de plano de fundo de retrato e uma página de plano de fundo de paisagem. Eles têm as mesmas margens, mas giraram 90 graus, portanto, a margem superior na página de retrato é a margem direita na página de paisagem.

Problema: Se eu inserir uma página de primeiro plano em retrato (usando o fundo de retrato) e inserir uma página de primeiro plano em paisagem (usando o plano de fundo da paisagem), a página de paisagem terá as margens não giradas da página de retrato.

As respostas do VBA estão bem, se for necessário. Obrigado por qualquer idéia que você possa oferecer!

    

Answer 1

Bem, eu fiz algumas caçadas e não achei nada automático. Se você encontrar uma maneira automática, por favor poste! Eu estou usando as seguintes macros, em um estêncil personalizado por isso , para consertar novas páginas depois de criá-las. Altere os valores de 1 , 0.625 , 0.4 para as margens que desejar (em polegadas, pelo menos em uma instalação do Visio e do Windows nos EUA).

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