Change the alignment of AcadText

Dim textObj As AcadText

Dim pt(2) As Double

 

set textObj = 'select AcadText.... 

 

pt(0) = textObj.insertionPoint(0)
pt(1) = textObj.insertionPoint(1)
    
textObj.Alignment = acAlignmentMiddleCenter
textObj.TextAlignmentPoint = pt

 

 

After assigning Alignment variable, TextAlignmentPoint must be assigned, too.

If you not, AcadText object will be destroyed.