EXCELのシートを拡大・縮小するマクロ

EXCELのシートを拡大・縮小するマクロをご教授下さい。

拡大ボタンをクリックする度に拡大し
縮小ボタンをクリックする度に縮小させるのが目的です。

特定の倍率に対して１個のボタンを設定することは
できるのですが、上のようなことは可能でしょうか？

例えば、
拡大ボタンを押す毎に１０％づつ拡大
縮小ボタンを押す毎に１０％づつ縮小
のようなことができればと思うのですが・・・・

No.1 ベストアンサー 回答者： masa_019 回答日時： 2006/05/04 23:04

こんにちは。

拡大ボタンに登録するマクロ

Sub 拡大()
With ActiveWindow
.Zoom = .Zoom + 10
End With
End Sub

縮小ボタンに登録するマクロ

Sub 縮小()
With ActiveWindow
.Zoom = .Zoom - 10
End With
End Sub

これでいかがでしょう。

この回答への補足

ありがとうございます。

うまくいきましたが、
ズームの範囲は１０～４００までのようで
範囲外になるとエラーでマクロが止まってしまいました。

１０～４００の範囲を出る場合は
msgboxで「ズーム範囲外です」と表示して、
なおかつエラーを回避することはできないでしょうか？？

補足日時：2006/05/04 23:34

この回答へのお礼

ActiveWindow.Zoom>400
ActiveWindow.Zoom<10

で判断を分けることで解決しました。
ありがとうございました。

お礼日時：2006/05/04 23:53

No.2 回答者： makekin 回答日時： 2006/05/04 23:19

このページの

Shirt + Ctrl + U , Y　（画面５％ズームUp、Down）
が、特にお勧めです。

参考URL：http://www.excel7.com/personal/personal2.htm