enter free rotation

[excelledsoftware]

What is a macro to take the selected shape and enter free rotate mode. I want to be able to assign this macro to a hotkey.
Thanks

[JohnWilson]

There's no way I know in the Object model to do this (maybe using the execute method of the relevant control but it didn't work for me.)

Even if you find a way though I doubt you will be able to assign to a keystroke because that isn't supported AFAIK in PowerPoint.

[excelledsoftware]

Originally Posted by JohnWilson

There's no way I know in the Object model to do this (maybe using the execute method of the relevant control but it didn't work for me.)

Even if you find a way though I doubt you will be able to assign to a keystroke because that isn't supported AFAIK in PowerPoint.

oh, well that makes sense because I wasn't finding anything. fortunatly my keyboard has a few programmable keys so as much as we hate too I used sendkeys to just navigate to the button and it works great. ill post the code later and then mark solved.

[excelledsoftware]

Here is a code that will work to do this if you place the free rotate icon as the first button on your drawing toolbar. SendKeys is not the best but this is the only way I know of to make it work.

Sub FreeRotate()
SendKeys "%{u}", wait
SendKeys "{esc}", wait
SendKeys "{left}", wait
SendKeys "{left}", wait
SendKeys "{left}", wait
SendKeys "{ent}", wait
End Sub