sharksun 发表于 2005-8-7 12:22:00

[VBA]多行文字的宽度比例无法设置吧?

<P>单行文字有个scalefactor，多行文字有对应的属性么？</P>

y1982_0 发表于 2005-8-9 10:59:00

<P>顶顶，我也想知道，正愁呢</P>

sharksun 发表于 2005-8-10 22:11:00

<P>用 \w 吧。</P>

y1982_0 发表于 2005-8-11 19:25:00

<P>多行文本没有scalefactor，只能用下面的方法，找个放缩的基点，然后把比例写上</P>
<P>&nbsp;&nbsp;&nbsp; Set MTextObj = ThisDrawing.ModelSpace.AddMText(insertionPoint, width, textString)</P>
<P>&nbsp;&nbsp;&nbsp; MTextObj.height = 1.5<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; MTextObj.ScaleEntity insertionPoint, 0.8</P>
<P>单行可以这样:</P>
<P>&nbsp;</P>
<P>'在模型空间创建文本对象<BR>Set TextObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)</P>
<P><BR>TextObj.ScaleFactor = 0.8</P>
页: [1]
查看完整版本: [VBA]多行文字的宽度比例无法设置吧?