/ 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
URL: http://excel.tips.net/Pages/T002731_Zooming_With_the_Keyboard.html