vba添加文字问题

liuyang4740 · 发表于 2011-4-26 17:45:00

以AddText方法添加文字，左对齐没有问题，中间对齐却有问题：
dim text_insert（2）as double
      text_insert（0）=1000
      text_insert（1）=1000
      text_insert（2）=0
      Set texObj = ThisDrawing.ModelSpace.AddText("文字", text_insert, 1200)
         texObj.TextAlignmentPoint = text_insert
         texObj.Alignment = acAlignmentMiddle
为何选择中部对齐后，文字都在远点（0,0）；不设置对齐方式文字插入在（1000,1000），原因估计是texObj.TextAlignmentPoint 没有获得变量，请问高手为何会这样？