Objekte drehen

[koter]

Hallo Günther,

Code:

Sub Dreh90()
   Dim s As Shape
   For Each s In ActiveSelectionRange
       s.Rotate 90
   Next
End Sub

Sub Dreh180()
   Dim s As Shape
   For Each s In ActiveSelectionRange
       s.Rotate 180
   Next
End Sub

Sub Dreh270()
   Dim s As Shape
   For Each s In ActiveSelectionRange
       s.Rotate 270
   Next
End Sub

Die Makros drehen alle Objekte in der Auswahl.

Gruß

Koter