Shortcut for aligning shapes in PowerPoint

[hotkeyuser1234]

Dear community,

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

for aligning right/left/top/bottom.

Thank you for your help!

[boiler]

Code: Select all

 #IfWinActive, ahk_exe POWERPNT.EXE
^!Left::Send, !jdaal
^!Right::Send, !jdaar
^!Up::Send, !jdaat
^!Down::Send, !jdaab

[hotkeyuser1234]

Thank you, unfortunately this code does not work. When pressing CTRL+ALT+one of the arrow keys, the forms are resized in the respective direction but not aligned. Maybe could you look at it again?

Thank you for your help!

[boiler]

It works for me using Microsoft 365 (formerly Office 365). Are you using an older version of PowerPoint?

[hotkeyuser1234]

I also use PowerPoint with a Microsoft 365 subscription. I just restarted it and now it seems to work but there is some lag until it appears. How can I change it on my own, i.e. how did you come up that it e.g. needs: jdaal for alinging left?

And I can assign this shortcut differently for a different program and it should not be an issue?

[boiler]

I came up with it by pressing the Alt key, and PowerPoint displays the keyboard shortcut hints. First JD for Shape Format, then AA for Align, then L/R/T/B for which direction to align. What do you mean change it on your own? To assign to different hotkeys? The jdaal, etc., is inherent in PowerPoint, not something you can decide to change.

You can assign the shortcuts differently for other programs by specifying the #IfWinActive directive appropriately.

[lblb]

Using the COM interface (https://docs.microsoft.com/en-us/office/vba/api/powerpoint.shaperange.align):

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