Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 07-31-2020, 04:41 AM
dovel dovel is offline Macro for zooming toggle Windows 10 Macro for zooming toggle Office 2019
Novice
Macro for zooming toggle
 
Join Date: Jul 2020
Posts: 6
dovel is on a distinguished road
Default Macro for zooming toggle

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.
Reply With Quote
  #2  
Old 07-31-2020, 05:24 AM
gmayor's Avatar
gmayor gmayor is offline Macro for zooming toggle Windows 10 Macro for zooming toggle 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

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
  #3  
Old 07-31-2020, 02:32 PM
macropod's Avatar
macropod macropod is offline Macro for zooming toggle Windows 7 64bit Macro for zooming toggle 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/...150-100-a.html
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
Reply

Tags
macro assign word, togglebutton, zoom scale images

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Macro for zooming toggle 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
Macro for zooming toggle Word Zooming Macro The_Iron Word VBA 2 09-16-2015 02:08 PM
Macro for zooming toggle Macro to toggle outline level Jennifer Murphy Word VBA 3 01-22-2014 11:22 PM
Macro for zooming toggle 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

Other Forums: Access Forums

All times are GMT -7. The time now is 04:19 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