VBA Objekte ausrichten

[koter]

Hallo fremoikaner,

Du kannst die Position auch gleich beim Erstellen des Textes festlegen:

Code:

Sub TxtZAufAuswahl()
   Dim sr As ShapeRange
   Dim s1 As Shape
   Dim strName As String
   Dim X As Double, Y As Double
   
   If ActiveSelectionRange.Count = 0 Then Exit Sub 'Abbruch falls nichts ausgewählt ist
   
   Set sr = ActiveSelectionRange
   strName = "Mustertext"
   
   X = sr.RotationCenterX
   Y = sr.PositionY + 0.02
   
   Set s1 = ActiveLayer.CreateArtisticText(X, Y, strName, , , "1451_Eng_DB", 8, , , , cdrCenterAlignment)
End Sub

Du darfst natürlich den Rotationspunkt bei der Auswahl nicht verschieben.

Gruß

Koter