vbaで改ページプレビューに変更する方法を紹介します。
ブックの表示を改ページプレビューに変更する
改ページプレビューに変更するにはWindowオブジェクトの「View」プロパティを使用します。
Viewプロパティに「xlPageBreakPreview」を設定することで改ページプレビューに切り替わります。
サンプルコード
改ページプレビューに設定する
1 2 3 4 5 6 | Sub 改ページプレビューに設定() ' 改ページプレビューに設定する。 ActiveWindow.View = xlPageBreakPreview End Sub |
Sub 改ページプレビューに設定() ' 改ページプレビューに設定する。 ActiveWindow.View = xlPageBreakPreview End Sub
すべてのシートを改ページプレビューに設定
1シートずつ表示設定を変更することもできますが、すべてのシートをまとめて変更することも可能です。
1 2 3 4 5 6 7 8 9 10 11 12 | Sub すべてのシートを改ページプレビューに設定() ' すべてのシートを選択 Worksheets.Select ' 改ページプレビューに設定する。 ActiveWindow.View = xlPageBreakPreview '左端のシートを選択 Sheets(1).Select End Sub |
Sub すべてのシートを改ページプレビューに設定() ' すべてのシートを選択 Worksheets.Select ' 改ページプレビューに設定する。 ActiveWindow.View = xlPageBreakPreview '左端のシートを選択 Sheets(1).Select End Sub
ループさせるよりもコードがすっきりするので活用ください。
注意点としては、すべてのシートを選択していますので、実行後に解除することをお忘れなく。また、上記サンプルでは左端のシートが非表示だとSelectできないためエラーになってしまいます。
解説
Window.Viewプロパティ
構文
(Window).View
値
名前 | 値 | 意味 |
---|---|---|
xlNormalView | 1 | 標準 |
xlPageBreakPreview | 2 | 改ページプレビュー |
xlPageLayoutView | 3 | ページレイアウトビュー |