Excelのズーム関連コマンドのマクロ作成

ズームイン、ズームアウトってマクロ記録だと「ActiveWindow.zoom = xxx」としか表示されない。
したがって、現在の表示倍率から倍率を変更するというマクロを作成した。
普段の作業で多用するコマンドなのでアドインとしてCTRL＋「J」、CTRL＋SHIT＋「J」に割当した。

Sub zoom_in()
    Dim z
    z = ActiveWindow.Zoom
    z = z + 5
    ActiveWindow.Zoom = z
End Sub

Sub zoom_out()
    Dim z
    z = ActiveWindow.Zoom
    z = z - 5
    ActiveWindow.Zoom = z
End Sub

ズームコマンドに関連して、100%表示、選択範囲に合わせて拡大/縮小も作成した。

Sub ZoomCurrent100()
    Application.CommandBars.ExecuteMso "ZoomCurrent100"
End Sub

Sub ZoomToSelection()
    Application.CommandBars.ExecuteMso "ZoomToSelection"
End Sub

以上