|
|
#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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com 
|
| Tags |
| macro assign word, togglebutton, zoom scale images |
|
|
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 |
Windows 10 
Office 2016
Threaded Mode