-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:
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.
Post a Comment