【Excel VBA】改ページプレビューに切り替える（View）

2023/11/15

はじめに

今回は、表示モードを改ページプレビューに切り替える方法を解説します。
1シートのみ切り替える方法や、すべてのシートを切り替える方法など、汎用的なサンプルコードも掲載しています。

この記事を読むメリット

改ページプレビューに切り替える方法が分かります。
コピペで使える実践的なサンプルコードを掲載しています。

Contents

基本情報
1. Viewプロパティ
サンプルコード
最後に

基本情報

Viewプロパティ

表示モードを改ページプレビューに切り替えるには、WindowオブジェクトのViewプロパティを使用します。

Viewプロパティでは、改ページプレビューの他にも、「ページレイアウトビュー」への切り替えも可能です。
なお、Viewプロパティでは値の取得も可能です。

構文

Windowオブジェクト.View = 設定値

設定値

Viewプロパティの設定値には、「XlWindowView定数」を指定します。
XlWindowView定数を以下に示します。

#	定数	説明
1	xlNormalView	標準
2	xlPageBreakPreview	改ページプレビュー
3	xlPageLayoutView	ページレイアウトビュー

XlWindowView定数

サンプルコード

改ページプレビューに切り替える

サンプルコード

Public Sub setNewPagePreview()

    ' アクティブウィンドウを改ページプレビューにする
    ActiveWindow.View = xlPageBreakPreview
End Sub

すべてのシートを改ページプレビューにする

サンプルコード

Public Sub setAllNewPagePreview()

    ' すべてのシートを選択する
    Worksheets.Select

    ' アクティブウィンドウを改ページプレビューにする
    ActiveWindow.View = xlPageBreakPreview

    ' 選択を解除する
    Worksheets(1).Select
End Sub

すべてのシートを標準ビューに戻す

サンプルコード

Public Sub resetPagePreview()

    ' すべてのシートを選択する
    Worksheets.Select

    ' アクティブウィンドウを改ページプレビューにする
    ActiveWindow.View = xlNormalView

    ' 選択を解除する
    Worksheets(1).Select
End Sub