Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 08-18-2015, 02:43 PM
gogreen gogreen is offline Macros to zoom to 150% and 100% Windows 7 64bit Macros to zoom to 150% and 100% Office 2010 32bit
Advanced Beginner
Macros to zoom to 150% and 100%
 
Join Date: Aug 2015
Posts: 67
gogreen is on a distinguished road
Default 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.
Reply With Quote
  #2  
Old 08-18-2015, 09:11 PM
gmayor's Avatar
gmayor gmayor is offline Macros to zoom to 150% and 100% Windows 7 64bit Macros to zoom to 150% and 100% Office 2010 32bit
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

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
Perhaps more useful would be a macro to toggle between 100% and 150%?
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
Reply With Quote
  #3  
Old 08-24-2015, 02:25 PM
gogreen gogreen is offline Macros to zoom to 150% and 100% Windows 7 64bit Macros to zoom to 150% and 100% Office 2010 32bit
Advanced Beginner
Macros to zoom to 150% and 100%
 
Join Date: Aug 2015
Posts: 67
gogreen is on a distinguished road
Default

Thanks, Graham. The macros work perfectly!
Reply With Quote
  #4  
Old 07-30-2020, 11:20 PM
dovel dovel is offline Macros to zoom to 150% and 100% Windows 10 Macros to zoom to 150% and 100% Office 2019
Novice
 
Join Date: Jul 2020
Posts: 6
dovel is on a distinguished road
Default

Can you please specify the entire process from Create to having a Quick Access Bar icon for toggling between zoom 100 and zoom 500?
Reply With Quote
  #5  
Old 07-31-2020, 05:25 AM
gmayor's Avatar
gmayor gmayor is offline Macros to zoom to 150% and 100% Windows 10 Macros to zoom to 150% and 100% Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

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
  #6  
Old 07-31-2020, 11:49 AM
Charles Kenyon Charles Kenyon is offline Macros to zoom to 150% and 100% Windows 10 Macros to zoom to 150% and 100% Office 2019
Moderator
 
Join Date: Mar 2012
Location: Sun Prairie, Wisconsin
Posts: 9,081
Charles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant future
Default

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
Reply With Quote
  #7  
Old 07-31-2020, 02:32 PM
macropod's Avatar
macropod macropod is offline Macros to zoom to 150% and 100% Windows 7 64bit Macros to zoom to 150% and 100% Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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]
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Macros to zoom to 150% and 100% 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
Macros to zoom to 150% and 100% 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

Other Forums: Access Forums

All times are GMT -7. The time now is 08:44 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft