View Zoom

[robert99]

I want sheet zoom to work in smaller steps (not 25/50/75/125/150 etc)

Say 80 85 90 100 105 110 115 and 120

Is there any way this can be done

I have searched the forum but the options did not work

Like this one

Re: To Create ZOOM Buttons

In

sub ResetZoom15

          set mySheet = ActiveDocument.ActiveSheet

          set sp = mySheet.GetProperties

          sp.ZoomFactor = sp.ZoomFactor*1.5

          mySheet.SetProperties sp

end sub

Although I'm unsure how to run the macro

Thanks

[robert99 · Accepted solution]

Ok I've finally got this to work

I set up an action button and pasted the above script in a macro as follows

Action / add / external / run macro  and then pasted into the edit module

And then clicked test.

sub ResetZoomInc

          set mySheet = ActiveDocument.ActiveSheet

          set sp = mySheet.GetProperties

          sp.ZoomFactor = sp.ZoomFactor*1.025

          mySheet.SetProperties sp

end sub

sub ResetZoomDec

          set mySheet = ActiveDocument.ActiveSheet

          set sp = mySheet.GetProperties

          sp.ZoomFactor = sp.ZoomFactor*0.975

          mySheet.SetProperties sp

end sub

[jduenyas]

Check out a solution I have posted recently Zoom Using Slider

Best regards

[robert99]

Thanks

I will look at it when I return to work tomorrow