エクセルのマクロで画面表示

質問

「画面表示拡大」、「画面表示縮小」をマクロで書くとどうなりますか？

ActiveWindow.Zoom = 100

とかで指定してくのはわかったんですが、現在の表示状態から、（コマンドボタンであるように）画面表示拡大、縮小をマクロでやりたいんですが、苦戦中です。教えてください。

回答No.2

KenKen_SP · ベストアンサー

こんにちは、KenKen_SP です。

Zoom は値の取得・設定のどちらも可能なプロパティーです。例えば、

Msgbox ActiveWindow.Zoom

とすれば、現在の表示倍率がメッセージボックスで表示されます。
現在の値がわかれば、後はそれに＋10とか、-10とか...加減算して
再度設定してやれば良いかと思います。

Sub Sample()

　　Dim vntZoom As Variant

　　' 対象となるシートがアクティブになっていること
　　Worksheets("Sheet1").Activate
　　' 現在の表示倍率を取得(単位は％）
　　vntZoom = ActiveWindow.Zoom
　　' 現在の表示倍率を＋10％に設定する
　　ActiveWindow.Zoom = vntZoom + 10

End Sub

お礼

なるほど、ありがとうございます。勉強になります。

回答No.1

hana-hana3

やりたい事が良くわかりませんが・・・

'1.5倍拡大
ActiveWindow.Zoom = ActiveWindow.Zoom * 1.5

お礼

ありがとうございます。出来ました。