エクセルで表を作成して印刷をする前に用紙の範囲に印刷できるか気になるので、改ページプレビューで確認することありませんか？
ボタン一つで標準モードにも切り替えられる「ON/OFF切替ボタン」があると便利なので、エクセルVBAのActiveWindow.Viewを使って作る方法をご紹介します。
ActiveWindow.Viewでモード指定
エクセルワークシート自体にコマンドボタンを配置する方法と、いつものようにユーザーフォームのコマンドボタンで操作する方法2つ記載します。
ワークシートにコマンドボタンを配置
普段はユーザーフォームを使用するので、あまりやらない方法なのですが、改ページプレビューだけならば、この方法もありかもしれませんね。
ワークシートに直接コマンドボタンを配置するならば、「開発」➡「挿入」➡「コマンドボタン」でワークシートに配置できます。
次に、ワークシートに配置をしたらコマンドボタンにVBAコードを記述しましょう。
Sub 表示モード切替()
ActiveWindow.View = xlPageBreakPreview
End Sub
- 「表示モード切替」という名前のマクロを記述する
- アクティブウィンドウの表示モードを改ページプレビューに切り替える
- マクロ記述終了
作成した「コマンドボタン1」をクリックするとこのように改ページプレビューに表示切替できました。
ユーザーフォームのコマンドボタンに記述
オリジナル入力画面のユーザーフォームにコマンドボタンを配置してVBAコードを記述するいつもの方法です。
Private Sub CommandButton1_Click()
ActiveWindow.View = xlPageBreakPreview
End Sub
- コマンドボタン1がクリックされたら
- アクティブウィンドウの表示モードを改ページプレビューに切り替える
- マクロ記述終了
波乗りアヒルちなみに、標準モードで表示するには定数を変更し、定数は下記のように決まっています。
| 表示モード | 定数 |
| 標準モード | xlNormalView |
| 改ページプレビュー | xlPageBreakPreview |
クリックするたびに標準／改ページプレビューに切り替え
改ページプレビューに表示を切り替えたり、標準に戻したりできるボタンを作れば、コマンドボタンを押すたびに表示モードが切り替わるので便利ですよね。
これができれば、わざわざ改ページプレビュー用のボタンと、標準に戻すボタンの2つ用意する必要がなくなります。
Private Sub CommandButton1_Click()
If ActiveWindow.View = xlNormalView Then
ActiveWindow.View = xlPageBreakPreview
ElseIf ActiveWindow.View = xlPageBreakPreview Then
ActiveWindow.View = xlNormalView
End If
End Sub
- コマンドボタン1がクリックされたら
- もし、表示モードが標準だったら
- 表示モードを改ページプレビューに切り替える
- そうでなく改ページプレビューだったら
- 標準モードに切り替える
- Ifステートメント終了
- マクロ記録終了
If～Thenを使って、もし標準だったら改ページプレビューにして、そうでない場合（改ページプレビュー）だったら、標準に戻すって書くだけです。
波乗りアヒルこのようにボタン1つで表示を切り替えたり元に戻したりできると便利なので、ほかの表示方法も知っていて損はないと思いますよ！
関連記事
-
エクセルVBAでセルの枠線の表示を表示・非表示を切り替えるボタン
エクセルのワークシート上にはセルの仕切り「枠線」が表示されていますが、消したいこと（非表示化）ありませんか？ ホームページやブログに画像として取り込む時に、枠… -
指定したセルを画面左上にスクロールする
【画面左上は移動はscrollrowとscrollcolumnを組み合わせる】 ボウリング場のリーグ戦の成績表でも使っているエクセルで、リーグ戦参加者の成績表を入力する為の専用フ… -
エクセルVBAで改ページプレビューと標準モード切替ボタンを作る方法
エクセルで表を作成して印刷をする前に用紙の範囲に印刷できるか気になるので、改ページプレビューで確認することありませんか？ ボタン一つで標準モードにも切り替えら… -
ワークシートサイズは常に最大化してエクセル画面を表示するVBA
エクセルファイルを開いたら中途半端なサイズで表示されるようになってしまった事ありませんか？ 作業するのにはフルサイズでの画面最大化の方が良いので、VBAを使って… -
エクセルVBAコマンドボタンでON/OFF切替スイッチを作る方法
ワークシート上にある罫線やリボンなど7つの項目を表示したり非表示することができる切替ボタンがあったら便利だと思いませんか？ 不要な項目をワンクリックで切り替え… -
エクセルのメニューリボン（操作パネル）をVBAで非表示にする方法
苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか？ 原因は簡単で、エクセル操作をオリジ… -
エクセルワークシート下にあるシート名の部分を非表示化する方法
苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか？ 原因は簡単で、エクセル操作をオリジ… -
エクセルシートで指定した範囲を自動的に画面最大化させるVBA方法
エクセルで作成した表がいつも画面いっぱいに表示されるならばいいのですが、スクロールしないと見られない範囲外ってことありませんか？ Excel-VBAを使えばいつも指定… -
VBAの画面のちらつきがたった1行で解決して処理高速化する方法
エクセルで繰り返し作業を効率よくするためにVBAを活用している時に、コマンドボタンを押したら画面が一瞬スクロールしたりシートが切り替わったりして目障りに思ったこ…
新着ページ
よく見られているページ
紅葉スポット
-
草津温泉スキー場の天狗山紅葉とライトアップされた西の河原散策へ
10月になると早々に紅葉を見ることができるので、今年の紅葉狩りのスタートはここ草津温泉からと言っても過言ではありません。 草津温泉の湯畑が有名ですが、すぐ近くに… -
水上駅から利根川沿いに整備された遊歩道や諏訪峡のもみじ公園へ
水上駅の南側にバンジージャンプが体験できる有名な諏訪峡大橋には、もみじに囲まれたもみじ公園があり、ここから利根川沿いの紅葉を楽しむことができます。 そして整備… -
成田山公園の紅葉へ新勝寺隣接の日本庭園を楽めて駅から徒歩圏内
成田と言えば成田空港と成田山新勝寺が有名で、旅行や初詣で訪れたことがあると思いますが、紅葉スポットになっていることは、地元の方以外はあまり知られていませんね… -
龍王峡駅から徒歩で紅葉や虹見の滝へ鬼怒川温泉駅からバスなら10分
【紅葉見頃】10月下旬～11月中旬 鬼怒川温泉と川治温泉の間に位置して、鬼怒川沿いに龍王峡自然研究路をいう遊歩道が整備されているので、火山の噴火によってできた岩… -
鶴沼原生花園アッケシソウ群落で地上で見られるサンゴ岬の一面赤い世界
北海道の北東部に位置する湧別町でサロマ湖の西側にサンゴ岬という場所があり、なんと地上にサンゴ草と言われる群生地が広がっています。 毎年9月中旬頃になるとアッケ… -
雲場池へバスで軽井沢駅から紅葉絶景観光スポットへ滞在時間50分
【紅葉見頃】10月中旬～11月中旬 避暑地軽井沢は実は紅葉も綺麗に見られる観光スポットでも知られ、紅葉名所の雲場池は軽井沢駅から1.3㎞程なので徒歩でも行けますし…
