Home > 即効テクニック > Excel VBA > ウィンドウ操作関連のテクニック > ウィンドウの表示サイズを設定する

即効テクニック
ウィンドウ操作関連のテクニック

ウィンドウの表示サイズを設定する

(Excel 2000)
ウィンドウの表示サイズをパーセント単位で設定します。

●詳細●
ウィンドウの表示サイズは通常サイズで100、通常の2倍のサイズで200となります。またTrueを設定した場合には、現在の選択範囲全体を最大表示するウィンドウサイズになります。Falseで通常表示の100に戻ります。

構文  Object.Zoom     設定/取得
設定項目        内容
 Object          Windowオブジェクト [省略不可]

次のサンプルは、セルA1〜B3の範囲を最大表示するサイズに変更します。
●サンプル● 
Sub ZoomSamp1()
    Range("A1:B3").Select     '---ズームしたい範囲を選択
    ActiveWindow.Zoom = True  '---選択範囲をズーム
    MsgBox Format(ActiveWindow.Zoom / 100, "0%") '---表示サイズを表示
    ActiveWindow.Zoom = True  '---元にサイズに戻す
End Sub

●注意●
複数のシートを選択した状態でZoomプロパティにTrueを指定した場合には、アクティブシートの選択範囲を最大表示する表示サイズがすべてのシートに適用されます。