Posted By

mprabhuram on 02/12/10

Tagged

Viewed 885 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.

Expand | Embed | Plain Text

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.