yxh1202 发表于 2010-6-7 15:23:00

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

<p><font face="Verdana">我有一个excel文件，第一行是数据，想读入到CAD中，x为列数（实际6列），但在执行后，发现每次最后一列的文字导入到CAD中后，字高和对齐方式没有执行程序要求，前面的都对。另外，P值在循环后比X值多了1，（原x=6,p应当等于6，可是msgbox p&nbsp; 后提示为7）。请各位版主、高人指点迷津。谢谢&nbsp;</font></p>
<p><font face="Verdana"></font>&nbsp;</p>
<p><font face="Verdana"></font>&nbsp;</p>
<p><font face="Verdana">For p = 1 To x<br/>&nbsp;&nbsp;&nbsp;&nbsp; txtStr = xlSheet.Cells(1, p)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtHeight = 25<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; insPnt(0) = jd(0) - 35: insPnt(1) = jd(1) - p * 15 + 8.66: insPnt(2) = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mtextObj.AttachmentPoint = 5<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mtextObj.height = 2 * zg<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set mtextObj = ThisDrawing.ModelSpace.AddMText(insPnt, txtHeight, txtStr)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next p</font></p>
页: [1]
查看完整版本: [原创]多行文字样式设定VBA代码出错