Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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.
Try this?
Sub Zoom
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.ActiveSheet.FItZoomToWindow
End Sub
Try like that:
Sub FitZoom()
ActiveDocument.ActiveSheet.FitZoomToWindow
End Sub
hope this helps
I did that now when i click on the button it loads the "Edit Module window; does not fit to zoom.
Try this?
Sub Zoom
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.ActiveSheet.FItZoomToWindow
End Sub
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