全部显示创建艺术字对象。返回一个代表新艺术字对象的 Shape 对象。
expression.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)
expression 必选。该表达式返回“应用于”列表中的对象之一。
PresetTexture 必选。MsoPresetTexture 类型。预设的文本效果。
| MsoPresetTextEffect 可以是下列 MsoPresetTextEffect 类型常数之一。 |
| msoTextEffect1 |
| msoTextEffect2 |
| msoTextEffect3 |
| msoTextEffect4 |
| msoTextEffect5 |
| msoTextEffect6 |
| msoTextEffect7 |
| msoTextEffect8 |
| msoTextEffect9 |
| msoTextEffect10 |
| msoTextEffect11 |
| msoTextEffect12 |
| msoTextEffect13 |
| msoTextEffect14 |
| msoTextEffect15 |
| msoTextEffect16 |
| msoTextEffect17 |
| msoTextEffect18 |
| msoTextEffect19 |
| msoTextEffect20 |
| msoTextEffect21 |
| msoTextEffect22 |
| msoTextEffect23 |
| msoTextEffect24 |
| msoTextEffect25 |
| msoTextEffect26 |
| msoTextEffect27 |
| msoTextEffect28 |
| msoTextEffect29 |
| msoTextEffect30 |
| msoTextEffectMixed |
Text 必选。String 类型。艺术字的文本。
FontName 必选。String 类型。艺术字中使用的字体名称。
FontSize 必选。Single 类型。艺术字中使用的字体大小（以磅为单位）。
FontBold 必选。MsoTriState 类型。确定艺术字中使用的字体是否设为粗体。
| MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
| msoCTrue |
| msoFalse |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue 将艺术字中的字体设为粗体。 |
FontItalic 必选。MsoTriState 类型。确定艺术字中使用的字体是否设为斜体。
| MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
| msoCTrue |
| msoFalse |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue 将艺术字中的字体设为斜体。 |
Left 必选。Single 类型。艺术字边界框左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top 必选。Single 类型。艺术字边界框上边缘相对于幻灯片上边缘的位置（以磅为单位）。
在文档中添加艺术字时，艺术字的高度和宽度会根据指定文本的大小和数量自动调整。
本示例在 myDocument 中添加包含文本“Test”的艺术字。
Set myDocument = ActivePresentation.Slides(1)
Set newWordArt = myDocument.Shapes _
.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
Text:="Test", FontName:="Arial Black", FontSize:=36, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:=10, Top:=10)