Shapes.AddTextEffect 方法 (Word)

将艺术字形状添加到绘图画布上。 返回一个 Shape 对象，该对象代表艺术字并将其添加到 CanvasShapes 集合。

语法

expression。 AddTextEffect( _PresetTextEffect_ , _Text_ , _FontName_ , _FontSize_ , _FontBold_ , _FontItalic_ , _Left_ , _Top_ )

expression 是必需的。 一个代表 Shapes 对象的变量。

参数

名称	必需/可选	数据类型	说明
PresetTextEffect	必需	MsoPresetTextEffect	预设的文本效果。 可读 常数的值对应于 艺术字库对话框 (从左到右，从上到下编号) 中列出的格式。
Text	必需	String	艺术字中的文字。
FontName	必需	String	艺术字中所用字体的名称。
FontSize	必需	Single	艺术字中所用字体的大小（以磅为单位）。
FontBold	必需	MsoTriState	属性值为 MsoTrue 为艺术字字体加粗。
FontItalic	必需	MsoTriState	属性值为 MsoTrue ，以斜体显示艺术字。
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

另请参阅

Shapes 集合对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。