Excelブックの表示倍率は通常状態が100%となっており、任意の倍率に変更して表示させることができます。 その方法について説明します。
【目次】
構文
記述方法は、以下の通りとなります。
=======================================================================
Windows(”［ブック名］”).Zoom =［サイズ］
=======================================================================
[説明]：
ブックを拡大/縮小表示したい場合は「Windows(”［ブック名］”).Zoom =［サイズ］」と記述します。 ［ブック名］には、拡大/縮小表示するブック名を指定します。ブック名は「”」（ダブルクォーテーション）で囲みます。［サイズ］には拡大/縮小する大きさを数値で指定又はTrue/Falseで指定します。内容を纏めると、「このブックを［サイズ］で指定した大きさに拡大又は縮小して表示して下さい。」との意味になります。
[記述例]：
ActiveWorkbook.Zoom = 200
ActiveWorkbook.Zoom = 75
ActiveWorkbook.Zoom = True
ActiveWorkbook.Zoom = False
使い方
使い方について、具体的に説明していきます。
指定したブックを拡大表示する方法
指定したブックを拡大表示する方法について説明します。
[記述例]：
※以下の記述例は、VBE（VBA記述画面）に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
Windows("テスト.xlsm").Zoom = 200
MsgBox "200%に拡大しました。"
End Sub
-------------------------------------------------
内容は、「テスト.xlsmブックを200%に拡大し、最後にMsgBoxで”200%に拡大しました。”のメッセージを表示して下さい。」との意味になります。
[実行例]：
（実行前）
※通常サイズのブックが表示されています。
（実行後）
※200%に拡大表示されたブックが表示されます。
指定したブックを拡大表示する方法についての説明は以上です。
現在アクティブになっているブックを縮小表示する方法
アクティブになっているブックを縮小表示する方法について説明します。
[記述例]：
※以下の記述例は、VBE（VBA記述画面）に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
ActiveWindow.Zoom = 75
MsgBox "75%に縮小しました。"
End Sub
-------------------------------------------------
内容は、「このブックを75%に縮小し、最後にMsgBoxで”75%に縮小しました。”のメッセージを表示して下さい。」との意味になります。
[実行例]：
（実行前）
※通常サイズのブックが表示されています。
（実行後）
※75%に縮小表示されたブックが表示されます。
アクティブになっているブックを縮小表示する方法についての説明は以上です。
現在アクティブになっているブックを最適サイズで表示する方法
アクティブになっているブックを最適サイズで表示する方法について説明します。
[記述例]：
※以下の記述例は、VBE（VBA記述画面）に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
ActiveWindow.Zoom = True
MsgBox "最適サイズで表示しました。"
End Sub
-------------------------------------------------
内容は、「このブックを最適サイズで表示し、最後にMsgBoxで”最適サイズで表示しまいた。”のメッセージを表示して下さい。」との意味になります。
[実行例]：
（実行前）
※通常サイズのブックが表示されています。
（実行後）
※最適サイズに表示されたブックが表示されます。
アクティブになっているブックを最適サイズで表示する方法についての説明は以上です。
現在アクティブになっているブックを通常サイズで表示する方法
アクティブになっているブックを通常サイズで表示する方法について説明します。
[記述例]：
※以下の記述例は、VBE（VBA記述画面）に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
ActiveWindow.Zoom = False
MsgBox "通常サイズで表示しました。"
End Sub
-------------------------------------------------
内容は、「このブックを通常サイズで表示し、最後にMsgBoxで”通常サイズで表示しまいた。”のメッセージを表示して下さい。」との意味になります。
[実行例]：
（実行前）
※通常サイズのブックが表示されています。
（実行前）
※通常サイズで表示されました。（通常サイズ→通常サイズの変更のため、変化していない様に見えます）
アクティブになっているブックを通常サイズで表示する方法についての説明は以上です。
おわりに
今回はExcelブックを拡大又は縮小表示する方法について説明しました。指定したZoomについては、Windowsオブジェクトとなるため、以下のシートを指定する様な記述は誤りになります。注意して下さい。（Worksheets("sheet1").Zoom = 200）