返回或设置指定艺术字的样式。此属性的值对应于“‘艺术字’库”对话框中的格式（自左而右，自上而下编号）。可读写。MsoPresetTextEffect 类型。
| 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 |
expression.PresetTextEffect
expression 必选。该表达式返回“应用于”列表中的对象之一。
设置 PresetTextEffect 属性会自动设置指定形状的许多其他格式属性。
本示例将 myDocument 中所有的艺术字设置为“‘艺术字’库”对话框中列出的第一种样式。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
If s.Type = msoTextEffect Then
s.TextEffect.PresetTextEffect = msoTextEffect1
End If
Next