Zoom Q

[Seanie]

How would I Zoom all sheets to 75% when particular file is opened?

Thanks

 

[Don Guillett]

Put this in the Workbook_open event of the ThisWorkbook module

Sub zoomem()
Sheets.Select
With Sheet1
.Activate
ActiveWindow.Zoom = 75
.Select
End With
End Sub

 

[Rick Rothstein]

Call the run Zoom75 subroutine when you open the file and run the Zoom100
subroutine when you close it.

Sub Zoom75()
Dim CurrWS As Worksheet
Dim WS As Worksheet
Set CurrWS = ActiveSheet
Application.ScreenUpdating = False
For Each WS In Worksheets
WS.Activate
ActiveWindow.Zoom = 75
Next
CurrWS.Activate
Application.ScreenUpdating = False
End Sub

Sub Zoom100()
Dim CurrWS As Worksheet
Dim WS As Worksheet
Set CurrWS = ActiveSheet
Application.ScreenUpdating = False
For Each WS In Worksheets
WS.Activate
ActiveWindow.Zoom = 100
Next
CurrWS.Activate
Application.ScreenUpdating = False
End Sub

 

[Seanie]

Don / Rick thanks for your help. Just a Q on yours Rick, what would be
the point in Zooming to 100 when its closed, if it always opens up at
75%?

 

[Rick Rothstein]

Good point.