Is it possible to align shapes in PowerPoint with a custom shortcut? I would really appreciate if you could help me to set up e.g.
Code: Select all
CTRL + ALT + Arrow right/left/top/bottom
Thank you for your help!
Code: Select all
CTRL + ALT + Arrow right/left/top/bottom
Code: Select all
#IfWinActive, ahk_exe POWERPNT.EXE
^!Left::Send, !jdaal
^!Right::Send, !jdaar
^!Up::Send, !jdaat
^!Down::Send, !jdaab
Code: Select all
^!right::
ppt := ComObjActive("PowerPoint.Application")
ppt.ActiveWindow.Selection.ShapeRange.Align(2, 0)
Return
^!left::
ppt := ComObjActive("PowerPoint.Application")
ppt.ActiveWindow.Selection.ShapeRange.Align(0, 0)
Return
Users browsing this forum: Google [Bot] and 141 guests