ウィンドウの表示倍率を変更する

今回はウィンドウの表示倍率についてメモしておきます。

表示倍率の変更はWindow.Zoomプロパティで行います。

固定値を設定する

実行プログラム

Sub Sample6_17_1()

    ActiveWindow.Zoom = 200  ' 200%に設定

End Sub

Sub Sample6_17_1()

ActiveWindow.Zoom = 200 ' 200%に設定

End Sub

実行前

実行後

実行プログラム

Sub Sample6_17_2()

    ActiveWindow.Zoom = ActiveWindow.Zoom * 0.5

End Sub

Sub Sample6_17_2()

ActiveWindow.Zoom = ActiveWindow.Zoom * 0.5

End Sub

実行前

実行後

注意
表示倍率は10%～400%でなければなりません。
この範囲を超える設定になるとエラーとなります。