Makro - Text an Rechteck ausrichten

[koter]

Hallo Benni,

Kann ich auch die auszuwählenden Objekte direkt ansprechen?...

Ja, das geht:

Code:

Sub TextAufRechteckMitte()
   Dim xRechteck As Shape, xText As Shape
   Dim Seite As Page
   
   For Each Seite In ActiveDocument.Pages
       Set xRechteck = Seite.Shapes("Rechteck1")
       Set xText = Seite.Shapes("Text")
       With xText
           .CenterX = xRechteck.CenterX
           .CenterY = xRechteck.CenterY
       End With
   Next
   
   Application.Refresh
End Sub

Bei den Set-Anweisungen werden die Objekte direkt angesprochen (in den Kammern).

Gruß

Koter