Macro to zoom in by 10% for each click

[davidhall]

I need some help with writing a macro. I have created a button and I would for each time the button is clicked, it would zoom in the active window by 10%. I also want to create a separate button that would do the exact opposite if clicked, zoom out by 10 %.

Any suggestions?

 

[njimack]

Sub Zoom()
ActiveWindow.Zoom = ActiveWindow.Zoom + 10
End Sub

 

[CWatts]

Sub Zoom_In()
    ActiveWindow.Zoom = ActiveWindow.Zoom + 10
End Sub
 
Sub Zoom_Out()
    ActiveWindow.Zoom = ActiveWindow.Zoom - 10
End Sub

 

[davidhall]

Thanks