Mehrere Objekte gleichzeitig drehen, um die eigene Achse

[koter]

Hallo Ralph,

ein frohes neues Jahr und willkommen im Forum!

Ich habe nur X7, kann also nicht sagen ob es mit Deiner Version klappt.
Du kannst den Code in eine Prozedur schreiben und es damit versuchen:

Code:

Sub AlleDrehen()
   Dim x As Shape
   For Each x In ActiveSelectionRange.Shapes.All
       x.Rotate 90
   Next
End Sub

ich hoffe es funktioniert.

Gruß

Koter