View Single Post
 
Old 07-31-2020, 05:24 AM
gmayor's Avatar
gmayor gmayor is offline Windows 10 Office 2016
Expert
 
Join Date: Aug 2014
Posts: 3,298
gmayor is a name known to allgmayor is a name known to allgmayor is a name known to allgmayor is a name known to allgmayor is a name known to allgmayor is a name known to all
Default

The following macro will toggle between 100 and 500%
Code:
Sub ToggleZoom()
    If ActiveWindow.ActivePane.View.Zoom.Percentage = 100 Then
        ActiveWindow.ActivePane.View.Zoom.Percentage = 500
    Else
        ActiveWindow.ActivePane.View.Zoom.Percentage = 100
    End If
End Sub
See Installing Macros
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote