VBA

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

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

名前意味
xlNormalView1標準
xlPageBreakPreview2改ページプレビュー
xlPageLayoutView3ページレイアウトビュー
XlWindowViewの値

モバイルバージョンを終了