[原创]多行文字样式设定VBA代码出错

yxh1202

我有一个excel文件，第一行是数据，想读入到CAD中，x为列数（实际6列），但在执行后，发现每次最后一列的文字导入到CAD中后，字高和对齐方式没有执行程序要求，前面的都对。另外，P值在循环后比X值多了1，（原x=6,p应当等于6，可是msgbox p  后提示为7）。请各位版主、高人指点迷津。谢谢 

 

 

For p = 1 To x
     txtStr = xlSheet.Cells(1, p)
      txtHeight = 25
      insPnt(0) = jd(0) - 35: insPnt(1) = jd(1) - p * 15 + 8.66: insPnt(2) = 0
      mtextObj.AttachmentPoint = 5
      mtextObj.height = 2 * zg
      Set mtextObj = ThisDrawing.ModelSpace.AddMText(insPnt, txtHeight, txtStr)
        Next p