Поделиться через

Свойство PageSetup.Orientation (Excel)

  • Статья

Возвращает или задает значение XlPageOrientation , представляющее режим книжной или альбомной печати.

Синтаксис

expression. Ориентации

Выражение Переменная, представляющая объект PageSetup .

Пример

В этом примере задается параметр Sheet1 для печати в альбомной ориентации.

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

В этом примере задается текущий активный лист для печати в книжной ориентации.

ActiveSheet.PageSetup.Orientation = xlPortrait

Эта процедура переключает ориентацию на противоположный параметр.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.