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