Fit Zoom To Window

[mparker123]

Hello All,

I am having trouble setting up a button that when you click it, it will automatically Fit Zoom To Window. Many people in my company have different size monitors so it is something I would like to do.  Again I want people to be able to click on a button that will Fit to zoom for them. I don't want it to be on Reload or Open unless this is the only way it can be done. 

Attached is a photo of the Button, Button Properties window, and Edit Module window. These windows contain my macros and my expressions.

[Frank_Hartmann]

Try like that:

Sub FitZoom()
ActiveDocument.ActiveSheet.FitZoomToWindow
End Sub

hope this helps

[mparker123]

I did that now when i click on the button it loads the "Edit Module window; does not fit to zoom.

[Anil_Babu_Samineni · Accepted solution]

Try this?

Sub Zoom

ActiveDocument.GetApplication.WaitForIdle

ActiveDocument.ActiveSheet.FItZoomToWindow

End Sub

[el_aprendiz111]

Hi,

Sub ZoomIn '-

set mysheet=ActiveDocument.ActiveSheet

set sp=mysheet.GetProperties

sp.ZoomFactor = sp.ZoomFactor-0.15

mysheet.SetProperties sp

End Sub

Sub ZoomOut '+

set mysheet=ActiveDocument.ActiveSheet

set sp=mysheet.GetProperties

sp.ZoomFactor = sp.ZoomFactor+0.15

mysheet.SetProperties sp

End Sub