Home Ask Login Register

Developers Planet

Your answer is one click away!

Sergey Ryabov February 2016

Change sheet's Zoom for inactive page

As you know you may change sheet's zoom with the following code:

ActiveWindow.Zoom = 75

Is there a way to change zoom of inactive sheet?



Tom February 2016

Not that beautiful, but it works.

Sub SetZoom()

mySheet = ActiveSheet.Name

'both Sheet IDs and names will work here
zoomIt = Application.InputBox("What's the zoom-in-sheet?")

'go to that sheet (where you want to zoom in)

'put in zoom factor (e.g. 300)
zoomFactor = Application.InputBox("How much is the fi-- er.. zoom?")

'boom! zoomed!
ActiveWindow.Zoom = zoomFactor

'select your old sheet

End Sub


Post Status

Asked in February 2016
Viewed 1,989 times
Voted 4
Answered 1 times


Leave an answer

Quote of the day: live life