Vba でズームを使用する方法 (例付き)

VBA を使用して Excel でズームを指定するには、次の方法を使用できます。

方法 1: ズームを特定の量に設定する

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

この特定のマクロは、現在アクティブなシートのズームを150%に設定します。

方法 2: 現在選択されている範囲にズームを設定する

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

この特定のマクロは、現在選択されている範囲を拡大します。

方法 3: ズームを特定の範囲に設定する

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

この特定のマクロは範囲C1:E5を拡大します。

次の例は、さまざまなバスケットボール選手に関する一連のデータが含まれる次の Excel シートを使用して、実際に各メソッドを使用する方法を示しています。

例 1: ズームを特定の量に設定する

次のマクロを使用して、現在アクティブなシートのズームを150%に設定できます。

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

このマクロを実行すると、シートのズームは自動的に150%になります。

デフォルトのズームは100であることに注意してください。

ズームを 100 より大きい値に設定すると、ズームします。

ズームアウトするには、ズームを 100 未満の値に設定します。

例 2: 現在選択されている範囲にズームを設定する

次のマクロを使用して、現在アクティブなシートのズームを現在選択されている範囲に設定できます。

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

たとえば、範囲A7:C11を選択するとします。

このマクロを実行すると、シートは自動的にこの範囲にズームします。

例 3: ズームを特定の範囲に設定する

次のマクロを使用して、現在アクティブなシートのズームを範囲C1:E5に設定できます。

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

このマクロを実行すると、シートは自動的にこの範囲にズームします。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBAを使用して範囲内の行数をカウントする方法
VBA を使用してスプレッドシートを操作する方法
VBAを使用してすべての行を表示する方法