Guten Tag,

wie kann ich mehrere Textrahmen (verteilt in einem einseitigen Dokument) mit jeweils unterschiedlichem Rotationswinkel auf einen einheitlichen Wert stellen?
Also alle Rähmchen sollten z.B. auf null Grad stehen.

Evtl. auch mit Makro möglich?

Grüße
Christoph

Ich bins nochmal,

habe tatsächlich etwas gefunden:

Code

Sub drehen() 
 Dim shp As Shape 
    For Each shp In ActiveDocument.Shapes 
        If shp.Type = msoTextBox Then 
            shp.Rotation = 0 
        End If 
    Next 
End Sub 

Grüße
Christoph