Propriedade PageSetup.Orientation (Excel)

Devolve ou define um valor XlPageOrientation que representa o modo de impressão vertical ou horizontal.

Sintaxe

expressão. Orientação

expressão Uma variável que representa um objeto PageSetup .

Exemplo

Este exemplo define Sheet1 para ser impressa na orientação paisagem.

Worksheets("Sheet1").PageSetup.Orientation = xlLandscape

Este exemplo define a folha atualmente ativa para ser impressa na orientação vertical.

ActiveSheet.PageSetup.Orientation = xlPortrait

Este procedimento muda a orientação para a opção oposta.

Sub SwitchOrientation()
    Dim ps As PageSetup
    Set ps = ActiveSheet.PageSetup

    If ps.Orientation = xlLandscape Then
        ps.Orientation = xlPortrait
    Else
        ps.Orientation = xlLandscape
    End If
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.