用VBA如何设置多行文字的高度

黄玉宏

单行文字可以方便地设置其高度，但修改比较麻烦。有时必须用多行文字来代替，使修改方便。但从一般资料上看到的，设置多行文字高度是用文字样式。通过实践，并不能改变其高度，而是不管怎么设置，多行文字高度都是2.5mm，没办法只好将2.5mm高的多行文字缩放到要求的高度。想请问各位高手，怎么设置多行文字的具体高度并使之生效？
黄玉宏　二○○七年三月十八日

laoliu09

语法

object.Height

object

MSITStore:D:\我的CAD\acadauto2006.chm::/idh_application_object.htm">Application, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_attribute_object.htm">Attribute, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_attributeref_object.htm">AttributeReference, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_mtext_object.htm">MText, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_pviewport_object.htm">PViewport, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_raster_object.htm">Raster, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_shape_object.htm">Shape, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_text_object.htm">Text, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_textstyle_object.htm">TextStyle, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_toolbar_object.htm">Toolbar, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_viewport_object.htm">Viewport, MSITStore:D:\我的CAD\acadauto2006.chm::/idh_view_object.htm">View
使用该属性的对象。

Height

Double [双精度]( Application 和 Toolbar 对象为整数)
可读写 (Toolbar 和 Raster 对象为只读)
必须为非零正数。

说明

Application: 以像素表示的主应用程序窗口高度。

MText, Text: 大写字母文字的高度。高度是按当前图形单位测量的。Height 属性用作文字长度和宽度的比例因子。

Height

Raster: 以像素表示的光栅图像高度。

Viewport: 视口高度是测量视口外框的 Y 轴。

View: 视图的高度是测量视口用于显示模型的区域的 Y 轴。

yxh1202

好像没有成功，请明示。谢谢

yxh1202

 For p = 1 To j - 1
     txtStr = xlSheet.Cells(1, p).Value
    txtHeight = zg * 4
    insPnt(0) = jd(0) - 32: insPnt(1) = jd(1) - p * 15 + 7 - zg / 2: insPnt(2) = 0 '标题栏文字写入
        Set textObj = ThisDrawing.ModelSpace.AddMText(insPnt, txtHeight, txtStr)
        textObj.Height = 5
        textObj.AttachmentPoint = 5 '右对齐（1为左对齐，2为居中）
    'textObj.Rotation = 2 * 3.14159 'rotation方法要用在Addtext动作之后！

 

按照上面的方法，不行啊。谢谢高人指点哈