VBAで改ページプレビューに変更する

vbaで改ページプレビューに変更する方法を紹介します。

ブックの表示を改ページプレビューに変更する

改ページプレビューに変更するにはWindowオブジェクトの「View」プロパティを使用します。

Viewプロパティに「xlPageBreakPreview」を設定することで改ページプレビューに切り替わります。

サンプルコード

改ページプレビューに設定する

1
2
3
4
5
6

Sub 改ページプレビューに設定()
 
  ' 改ページプレビューに設定する。
  ActiveWindow.View = xlPageBreakPreview
 
End Sub

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

１シートずつ表示設定を変更することもできますが、すべてのシートをまとめて変更することも可能です。

1
2
3
4
5
6
7
8
9
10
11
12

Sub すべてのシートを改ページプレビューに設定()
 
  ' すべてのシートを選択
  Worksheets.Select
 
  ' 改ページプレビューに設定する。
  ActiveWindow.View = xlPageBreakPreview
 
  '左端のシートを選択
  Sheets(1).Select
 
End Sub

ループさせるよりもコードがすっきりするので活用ください。

注意点としては、すべてのシートを選択していますので、実行後に解除することをお忘れなく。また、上記サンプルでは左端のシートが非表示だとSelectできないためエラーになってしまいます。

解説

Window.Viewプロパティ

構文

(Window).View

値