[VBA]多行文字的行距如何定义

dchlmz · 发表于 2006-5-8 17:59:00

使用VBA，多行文字的行距如何定义？

xinghesnak · 发表于 2006-5-9 09:08:00

LineSpacingFactor 属性

dchlmz · 发表于 2006-5-9 09:27:00

谢谢，已经解决。刚开始设了1，结果没变，以为错了。

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

Dim myTxtobj As AcadTextStyle
Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt样式
mytxt.f '设置字体文件为仿宋体
mytxt.Height = 0 '字高
mytxt.width = 0.7 '宽高比
mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(0, 0) '倾斜角度（需转为弧度）
ThisDrawing.ActiveTextStyle = mytxt '将当前文字样式设置为mytxt
Set txtobj = ThisDrawing.ModelSpace.AddMText(p, 1400, "{做到老，学到老}\P" & "此心自光明正大，过人远矣")
txtobj.LineSpacingFactor = 2 '指定行间距
txtobj.AttachmentPoint = 3 '右对齐（1为左对齐，2为居中）

从VBA初级教程上摘录的，希望有所帮助。

[VBA]多行文字的行距如何定义

发表回复

精选推荐