用VBA如何设置多行文字的高度
<p><font face="宋体" size="2">单行文字可以方便地设置其高度，但修改比较麻烦。有时必须用多行文字来代替，使修改方便。但从一般资料上看到的，设置多行文字高度是用文字样式。通过实践，并不能改变其高度，而是不管怎么设置，多行文字高度都是2.5mm，没办法只好将2.5mm高的多行文字缩放到要求的高度。想请问各位高手，怎么设置多行文字的具体高度并使之生效？<br/>黄玉宏 二○○七年三月十八日</font></p> <p class="Heading-2">语法 </p><p class="syntax">object.Height </p><p class="element">object</p><p class="element-desc"><a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_application_object.htm">Application</a>, <a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_attribute_object.htm">Attribute</a>, <a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_attributeref_object.htm">AttributeReference</a>, <a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_mtext_object.htm">MText</a>, <a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_pviewport_object.htm">PViewport</a>, <a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_raster_object.htm">Raster</a>, <a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_shape_object.htm">Shape</a>, <a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_text_object.htm">Text</a>, <a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_textstyle_object.htm">TextStyle</a>, <a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_toolbar_object.htm">Toolbar</a>, <a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_viewport_object.htm">Viewport</a>, <a href="mk:@MSITStore:D:\我的CAD\acadauto2006.chm::/idh_view_object.htm">View </a><br/>使用该属性的对象。 </p><p class="element">Height</p><p class="element-desc">Double [双精度]( Application 和 Toolbar 对象为整数)<br/>可读写 (Toolbar 和 Raster 对象为只读)<br/>必须为非零正数。 </p><p class="Heading-2">说明 </p><p class="body">Application: 以像素表示的主应用程序窗口高度。 </p><p class="body">MText, Text: 大写字母文字的高度。高度是按当前图形单位测量的。Height 属性用作文字长度和宽度的比例因子。</p><table class="Simple"><tbody><tr valign="top"><td><p class="body"> </p></td><td><p class="body"><i>Height </p></td></tr></tbody></table><p class="body">Raster: 以像素表示的光栅图像高度。 </p><p class="body">Viewport: 视口高度是测量视口外框的 Y 轴。 </p><p class="body">View: 视图的高度是测量视口用于显示模型的区域的 Y 轴。<script language="javascript" src="ac.acad_mc.js"></script>
</p> 好像没有成功，请明示。谢谢 <p><font face="Verdana"> For p = 1 To j - 1<br/> txtStr = xlSheet.Cells(1, p).Value<br/> txtHeight = zg * 4<br/> insPnt(0) = jd(0) - 32: insPnt(1) = jd(1) - p * 15 + 7 - zg / 2: insPnt(2) = 0 '标题栏文字写入<br/> Set textObj = ThisDrawing.ModelSpace.AddMText(insPnt, txtHeight, txtStr)<br/> <font style="BACKGROUND-COLOR: #ff0000"> textObj.Height = 5<br/></font> textObj.AttachmentPoint = 5 '右对齐（1为左对齐，2为居中）<br/> 'textObj.Rotation = 2 * 3.14159 'rotation方法要用在Addtext动作之后！</font></p>
<p> </p>
<p>按照上面的方法，不行啊。谢谢高人指点哈</p>
页:
[1]