Posted By

mprabhuram on 02/12/10

Tagged

Viewed 391 times

Favorited by 0 user(s)

/ 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.

Copy this code and paste it in your HTML

Sub MyZoomOut()
   Dim ZP As Integer
   ZP = Int(ActiveWindow.Zoom * 0.9)
   If ZP < 10 Then ZP = 10
   ActiveWindow.Zoom = ZP
End Sub

Comment:

You need to login to post a comment.