ZoomOut Excel Macro - Visual Basic Snipplr Social Repository

Revision: 23763

at February 12, 2010 10:55 by mprabhuram

Initial Code

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

Initial URL

http://excel.tips.net/Pages/T002731_Zooming_With_the_Keyboard.html

Initial Description

This macro sets the bottom boundary at 10%, which is the smallest you can go. Any smaller, and Excel would generate an error again.

Initial Title

ZoomOut Excel Macro

Initial Tags

Initial Language

Visual Basic