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

黄玉宏 · 发表于 2007-3-18 16:12:00

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

laoliu09 · 发表于 2007-3-18 23:12:00

语法
object.Height
object
, , , , , , , , , , ,
使用该属性的对象。
Height
Double [双精度]( Application 和 Toolbar 对象为整数)
可读写 (Toolbar 和 Raster 对象为只读)
必须为非零正数。
说明
Application: 以像素表示的主应用程序窗口高度。
MText, Text: 大写字母文字的高度。高度是按当前图形单位测量的。Height 属性用作文字长度和宽度的比例因子。

[i]Height
Raster: 以像素表示的光栅图像高度。
Viewport: 视口高度是测量视口外框的 Y 轴。
View: 视图的高度是测量视口用于显示模型的区域的 Y 轴。

yxh1202 · 发表于 2010-6-7 10:38:00

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

yxh1202 · 发表于 2010-6-7 10:39:00

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动作之后！

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

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

发表回复

精选推荐

浏览过的版块