Макрос для поворота объекта

kuterma2 / 30.09.2010, 14:46/00:41
Форум: 
Макросы и скрипты

Ребзя, а можно ещё попросить макрос
для поворота выделенного объекта
на 45° и - 45°, 90° и -90°, 180°, хочется тож на ГорКлавиши это дело рутинное повесить...

kuman / 30.09.2010, 15:20/16:27


Sub Macro1()
     Dim OrigSelection As ShapeRange
     Set OrigSelection = ActiveSelectionRange
     OrigSelection.Rotate 45#
End Sub

Вроде так, вместо 45 любой градус ставишь.

kuterma2 / 30.09.2010, 15:49/16:27

kuman, Большое спасибо, работает!