Objekte drehen

[Karthagos]

Hallo Koter,
 
leider bin ich mit Easy Ribbon noch nicht wirklich weiter gekommen, liegt aber an terminlichen Problemen.

Trotzdem bitte ich Dich, sofern möglich, mit einem Makro/oder 3 Makros zu helfen, damit ich Objekte um 90, 180 und 270° drehen kann.

Der Weg über „Freie Änderung ist doch recht umständlich und ich benötige diese Funktion recht oft.

Man kann natürlich auch mit gedrückter Strg-Taste die Änderung vollziehen, aber ein Makro und Icons in der Symbolleiste wären mir angenehmer.

[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

[Karthagos]

Guten Morgen Koter,

vielen Dank  , perfekt wie immer , ist schon in meine Symbolleiste eingearbeitet: