Propriedade PageSetup.Orientation (Excel)

Retorna ou define um valor XlPageOrientation que representa o modo de impressão retrato ou paisagem.

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 planilha ativa atualmente a ser impressa na orientação de retrato.

ActiveSheet.PageSetup.Orientation = xlPortrait

Esse procedimento alterna 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.