VBA～ウィンドウの表示倍率を変更しよう～Excel

VBAでウィンドウの表示倍率を変更したい場合はWindow.Zoomプロパティで設定できます。

下のコードを実行するとアクティブウィンドウの表示倍率が200%になります。

Sub test1()

ActiveWindow.Zoom = 200

End Sub

基準となるセルを指定

倍率表示の基準となるセルを指定したい場合はまず、基準となるセルを選択します。

下のコードを実行するとセルG5を基準に表示倍率が200%になります。

Sub test2()

Range("G5").Select
ActiveWindow.Zoom = 400

End Sub

指定したシートの表示倍率の変更

指定したシートで表示倍率を変更したい場合はまず、シートをアクティブにします。

下のコードを実行するとSheet2の表示倍率が200%になります。

Sub test3()

Worksheets("Sheet2").Activate
ActiveWindow.Zoom = 200

End Sub

指定したブックでスクロールする

指定したブックでスクロールしたい場合はまず、ブックをアクティブにします。

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1の表示倍率が200%になります。

Sub test4()

Workbooks("Book1.xlsx").Activate
ActiveWindow.Zoom = 200

End Sub