Excel VBA　画面表示倍率５％ずつ拡大/縮小

画面表示倍率を５％単位で拡大/縮小 ​Sub 画面倍率5パーセント拡大()​​　Dim z As Long　​　z = ActiveWindow.Zoom　　ActiveWindow.Zoom = z + 5​End Sub​　 　==========　 　​Sub 画面倍率5パーセント縮小()​​　Dim z As Long​　z = ActiveWindow.Zoom　ActiveWindow.Zoom = z - 5 　​End Sub​ [引用元] ​​​Excelのこととか色々​​​ ​​​※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。​ ​​​​​​​​​​​​​​​​​​