[求助]：用VBA如何设置多行文字的高度

黄玉宏 · 发表于 2007-3-18 15:52:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

雪山飞狐(lzh) · 发表于 2007-3-19 11:23:38

object.Height

黄玉宏 · 发表于 2007-3-19 11:29:48

不行啊版主，这是单行文字的方法，对多行文字无反应呀！我的目的就是用多行文字来代替单行文字，还是要谢谢版主回复！
黄玉宏　二○○七年三月十九日

雪山飞狐(lzh) · 发表于 2007-3-19 15:37:46

Sub tt()
Dim pnt(2) As Double
ThisDrawing.ModelSpace.AddMText(pnt, 0, "123" & vbCrLf & "abc").Height = 10
End Sub

黄玉宏 · 发表于 2007-3-19 17:32:53

非常感谢你的回复，没想到是这么解决的。再次谢谢版主！
黄玉宏　二○○七年三月十九日

qinchao_qc · 发表于 2007-4-20 21:38:20

版主厉害

账号		自动登录	找回密码
密码			立即注册

[求助]：用VBA如何设置多行文字的高度

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子