即効テクニック |
ウィンドウの表示サイズをパーセント単位で設定します。 ●詳細● ウィンドウの表示サイズは通常サイズで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を指定した場合には、アクティブシートの選択範囲を最大表示する表示サイズがすべてのシートに適用されます。