Saturday, April 28, 2018

Create Shortcut Key to Zoom-In, Zoom-Out in Microsoft Word using Macro

Developer Tab - Macro

-Type "MyZoomIn"
-Create
-Paste following code:
Sub MyZoomIn()
    Dim ZP As Integer
    ZP = Int(ActiveWindow.ActivePane.View.Zoom.Percentage * 1.1)
    If ZP > 200 Then ZP = 200
    ActiveWindow.ActivePane.View.Zoom.Percentage = ZP
End Sub
Sub MyZoomOut()
    Dim ZP As Integer
    ZP = Int(ActiveWindow.ActivePane.View.Zoom.Percentage * 0.9)
    If ZP < 10 Then ZP = 10
    ActiveWindow.ActivePane.View.Zoom.Percentage = ZP
End Sub



Make Shortcut Key :
File - Option - Customize Ribbon
in "Keyboard shortcuts" - "Customize"
in Categories - "Macro", you should find MyZoomIn , MyZoomOut
Assign "Ctrl - 0" into MyZoomIn
Assign "Ctrl - 1" into MyZoomOut



The shortcut key should be created



Ref: https://word.tips.net/T001734_Zooming_with_the_Keyboard.html






1 comment:

Unknown said...

Is the government to launch new COVID-19 casino? - FilmfileEurope
The 먹튀 사이트 government has signed a 넷마블 사이트 new COVID-19 바카라게임사이트 gaming law into law, which has allowed casinos to operate as gambling companies in 네임드 사다리 the 스포츠토토 윈윈 Netherlands.