/ Published in: Visual Basic
This macro sets the bottom boundary at 10%, which is the smallest you can go. Any smaller, and Excel would generate an error again.
- Sub MyZoomOut()
- Dim ZP As Integer
- ZP = Int(ActiveWindow.Zoom * 0.9)
- If ZP < 10 Then ZP = 10
- ActiveWindow.Zoom = ZP
- End Sub
You need to login to post a comment.