エクセルで表を作成して印刷をする前に用紙の範囲に印刷できるか気になりますよね。
そんな時に改ページプレビューに表示モードを切り替えて確認するのですが、ボタンひとつで切り替えられると便利ですよね。
波乗りアヒル
たった1行VBAコードを追加するだけで表示モード切替できますよ
目次
ActiveWindow.Viewで表示モードを指定する
エクセルワークシート自体にコマンドボタンを配置する方法と、いつものようにユーザーフォームのコマンドボタンで操作する方法2つ記載します。
ワークシートにコマンドボタンを配置した場合
普段はユーザーフォームを使用するので、あまりやらない方法なのですが、改ページプレビューだけならば、この方法もありかもしれませんね。
ワークシートに配置をしたらコマンドボタンにVBAコードを記述しましょう。
VBAコード
Sub 表示モード切替()
ActiveWindow.View = xlPageBreakPreview
End Sub
解説
- 「表示モード切替」という名前のマクロを記述する
- アクティブウィンドウの表示モードを改ページプレビューに切り替える
- マクロ記述終了
ボタン1をクリックするとこのように改ページプレビューに表示切替できました。
ユーザーフォームのコマンドボタンに記述
オリジナル入力画面のユーザーフォームにコマンドボタンを配置してVBAコードを記述するいつもの方法です。
VBAコード
Private Sub CommandButton1_Click()
ActiveWindow.View = xlPageBreakPreview
End Sub
波乗りアヒル
基本的に一緒ですが、マクロ名をつけなくていいだけです。
ちなみに、標準モードで表示するには定数を変更し、定数は下記のように決まっています。
| 表示モード | 定数 |
| 標準モード | xlNormalView |
| 改ページプレビュー | xlPageBreakPreview |
波乗りアヒル
Excel-VBAを使えば数分かかる作業がたったの1秒で終了しますよ！