您应该插入文本实体,并在更改其对齐方式后立即插入;以下代码可能会澄清这一点:
- Dim myTextObject As Object
- Set myTextObject = ThisDrawing.ModelSpace.AddText("Hello World!", TextInsertionPoint, 1#)
- 'modify text alignment to Middle-Center
- myTextObject.Alignment = acAlignmentMiddleCenter
请查看帮助以获取内置对齐常数的列表。
当做 |