[VBA函数]：请问:在VBA中:文字样式TextStyle的表示垂直文字的属性是什么?

y56y78 · 发表于 2006-10-26 20:14:14

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

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

×

在Lisp中,设置文字样式TextStyle的组码70为4可表示为垂直文字
请问:在VBA中:文字样式TextStyle的表示垂直文字的属性是什么?

qjcpj · 发表于 2006-11-5 16:10:44

没有此属性！

天边孤雁 · 发表于 2006-11-7 10:32:32

获取 TEXT 对象,直接设置对象的属性该可以吧
  If ent.ObjectName = "AcDbText" Then

   vps = ent.textString
   ent.height = Yint
   ' ent.VerticalAlignment = 0.8 '垂直调整
   ent.ObliqueAngle = 325 '文本倾斜
   ent.ScaleFactor = 0.8 '调整宽高比例
   ....
End If

天边孤雁 · 发表于 2006-11-7 10:32:32

获取 TEXT 对象,直接设置对象的属性该可以吧
  If ent.ObjectName = "AcDbText" Then

   vps = ent.textString
   ent.height = Yint
   ' ent.VerticalAlignment = 0.8 '垂直调整
   ent.ObliqueAngle = 325 '文本倾斜
   ent.ScaleFactor = 0.8 '调整宽高比例
   ....
End If

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

[VBA函数]：请问:在VBA中:文字样式TextStyle的表示垂直文字的属性是什么?

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

相关帖子