CanvasShapes.AddTextEffect 方法 (Word)
在绘图画布上添加一个艺术字形状。 返回一个表示该艺术字的 Shape 对象。
语法
表达式。AddTextEffect (PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)
expression 是必需的。 一个代表 CanvasShapes 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
PresetTextEffect | 必需 | Mso | 预设的文本效果。 可读 常数的值对应于 艺术字库对话框 (从左到右,从上到下编号) 中列出的格式。 |
Text | 必需 | String | 艺术字中的文字。 |
FontName | 必需 | String | 艺术字中所用字体的名称。 |
FontSize | 必需 | Single | 艺术字中所用字体的大小(以磅为单位)。 |
FontBold | 必需 | MsoTriState | 属性值为 msoTrue 为艺术字字体加粗。 msoFalse 设置正则将艺术字中使用的字体。 |
FontItalic | 必需 | MsoTriState | 属性值为 msoTrue ,以斜体显示艺术字。 msoFalse 设置正则将艺术字中使用的字体。 |
Left | 必需 | Single | 艺术字形状左边缘相对于绘图画布左边缘的位置(以磅为单位)。 |
Top | 必需 | Single | 艺术字形状上边缘相对于绘图画布上边缘的位置(以磅为单位)。 |
备注
向文档添加艺术字对象时,该对象的高度和宽度将自动根据所指定的文字的大小和数量来设置。
示例
本示例在新文档中添加一个绘图画布,并在绘图画布中插入包含文字“Hello, World”的“艺术字”图形。
Sub NewCanvasTextEffect()
Dim docNew As Document
Dim shpCanvas As Shape
'Create a new document and add a drawing canvas
Set docNew = Documents.Add
Set shpCanvas = docNew.Shapes.AddCanvas( _
Left:=100, Top:=100, Width:=150, _
Height:=50)
'Add WordArt shape to the drawing canvas
shpCanvas.CanvasItems.AddTextEffect _
PresetTextEffect:=msoTextEffect20, _
Text:="Hello, World", FontName:="Tahoma", _
FontSize:=15, FontBold:=msoTrue, _
FontItalic:=msoFalse, _
Left:=120, Top:=120
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。