Need help aligning text using VBA

[jrice174]

I'm trying to center a string of text in a rectangle. When I add the text it goes almost where I want it, but then when I add the alignment properties, it throws it down in the corner. What am I doing wrong?

Pt1(0) = PWidth / 2: Pt1(1) = Hieght / 2
Set objText = ThisDrawing.ModelSpace.AddText(Name, Pt1, 1)
objText.InsertionPoint = Pt1
objText.Alignment = acAlignmentMiddleCenter

 

[atook]

Try setting your alignment first, then resetting the insertion point.

 

[jrice174]

Thanks, that did it.