Macro for zooming toggle

dovel · #1 07-31-2020, 04:41 AM

I'd like to create a button on Word Quick Access bar that will toggle between Zoom 100% and 500%.

Alternatively, I'd like to have 500% as the default value when View>Zoom>Zoom opens, instead of 100%.

I found an answer down there for toggling between 100% and 150%, but I need a detailed description of the complete creation process.

Thank you so much.

gmayor · #2 07-31-2020, 05:24 AM

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

macropod · #3 07-31-2020, 02:32 PM

Duplicate: https://www.msofficeforums.com/word/...150-100-a.html

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Toggle between upper case, lower case, etc... by one single macro on a Mac, to emulate Shift + F3 on	gloub	Word VBA	2	01-30-2019 12:40 PM
Word Zooming Macro	The_Iron	Word VBA	2	09-16-2015 02:08 PM
Macro to toggle outline level	Jennifer Murphy	Word VBA	3	01-22-2014 11:22 PM
Zooming in a shape	wouter333	PowerPoint	2	10-15-2013 05:55 AM
Macro to toggle outline level	Jennifer Murphy	Word VBA	0	07-08-2013 08:20 AM