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?

Thanks

Answers


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)
Sheets(zoomIt).Select

'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
Sheets(mySheet).Select


End Sub

Sayonara.

Post Status

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

Search




Leave an answer


Quote of the day: live life