ZoomOut Excel Macro

/ Published in: Visual Basic
Save to your folder(s)

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
  1. Sub MyZoomOut()
  2. Dim ZP As Integer
  3. ZP = Int(ActiveWindow.Zoom * 0.9)
  4. If ZP < 10 Then ZP = 10
  5. ActiveWindow.Zoom = ZP
  6. End Sub

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

Report this snippet


RSS Icon Subscribe to comments

You need to login to post a comment.