Excel – Set Zoom of the ActiveWindow in VBA

You can use VBA to change the Zoom of a worksheet. Here’s code to change the Zoom of the ActiveWindow to 50%:

ActiveWindow.Zoom = 50

You can also loop through all the worksheets in your workbook to set a standard Zoom. The following [gs macro] will set the Zoom for all worksheets to 50%:

Sub ZoomAll()


Dim ws As Worksheet


Application.ScreenUpdating = False


For Each ws In Worksheets


    ws.Activate


    ActiveWindow.Zoom = 50


Next


Application.ScreenUpdating = True


End Sub

And finally a magically growing worksheet. The following [gs macro] will loop through the Zooms for Sheet1, going from 10% to 200%, incrementing by 10%, pausing a second between changes, and then it will restore Sheet1 back to it’s original state.

Sub ZoomZoom()


Dim x As Integer 'variable for loop


Dim OriginalZoom As Integer 'variable for original zoom


Sheet1.Activate 'let's work with sheet1


OriginalZoom = ActiveWindow.Zoom 'get current zoom


'loop through zoom 10 to 200 by 10


    For x = 1 To 20


        ActiveWindow.Zoom = x * 10


        Application.Wait Now + TimeValue("00:00:01")


    Next x


'restore original zoom


ActiveWindow.Zoom = OriginalZoom


End Sub