#1
|
|||
|
|||
Macros to zoom to 150% and 100%
How do I create a macro in MS Word 2010 that takes a document to a zoom size of 150%? Are these already created where I can download them? Similarly, how do I do the same thing for 100%? Thanks.
|
#2
|
||||
|
||||
It is very simple to create such macros, but whether they are more useful than the built-in zoom function is debatable. http://www.gmayor.com/installing_macro.htm
Code:
Sub Zoom100() With ActiveWindow.View If Err.Number = 4248 Then Exit Sub .Type = wdPrintView .Zoom = 100 End With End Sub Sub Zoom150() With ActiveWindow.View If Err.Number = 4248 Then Exit Sub .Type = wdPrintView .Zoom = 150 End With End Sub Code:
Sub ToggleZoom() With ActiveWindow.View If Err.Number = 4248 Then Exit Sub .Type = wdPrintView If Not .Zoom = 100 Then .Zoom = 100 Else .Zoom = 150 End If End With End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Thanks, Graham. The macros work perfectly!
|
#4
|
|||
|
|||
Can you please specify the entire process from Create to having a Quick Access Bar icon for toggling between zoom 100 and zoom 500?
|
#5
|
||||
|
||||
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 |
#6
|
|||
|
|||
You might want to attach a keyboard shortcut to the macro rather than or in addition to the QAT icon.
Assigning Keyboard Shortcuts in Microsoft Word 2010-2019 (365) - Microsoft Community Modifying the Quick Access Toolbar (QAT) in Microsoft Word Install/Employ VBA Procedures (Macros) by Greg Maxey |
#7
|
||||
|
||||
Duplicate: https://www.msofficeforums.com/word/...ng-toggle.html
Dovel: Kindly don't post questions on the same topic in multiple threads.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
OneNote Zoom in | Techno_y0 | OneNote | 1 | 04-27-2015 02:14 AM |
Zoom-in and -out | mpv55 | PowerPoint | 0 | 10-28-2013 08:01 AM |
Can't zoom in - PPT 2013? | TheDave777 | PowerPoint | 1 | 04-19-2013 08:54 AM |
Zoom in transitions | pdj | PowerPoint | 1 | 11-01-2012 11:14 AM |
Zoom In and Out | DAC8190 | PowerPoint | 1 | 03-16-2011 08:50 AM |