返回或设置指定“艺术字”的样式。此属性值对应于“‘艺术字’库”对话框(“插入”菜单)中的格式(从左到右,从上到下进行编号)。MsoPresetTextEffect,可读写。
MsoPresetTextEffect 可以是下列 MsoPresetTextEffect 常量之一: |
msoTextEffect1 |
msoTextEffect10 |
msoTextEffect11 |
msoTextEffect12 |
msoTextEffect13 |
msoTextEffect14 |
msoTextEffect15 |
msoTextEffect16 |
msoTextEffect17 |
msoTextEffect18 |
msoTextEffect19 |
msoTextEffect2 |
msoTextEffect20 |
msoTextEffect21 |
msoTextEffect22 |
msoTextEffect23 |
msoTextEffect24 |
msoTextEffect25 |
msoTextEffect26 |
msoTextEffect27 |
msoTextEffect28 |
msoTextEffect29 |
msoTextEffect3 |
msoTextEffect30 |
msoTextEffect4 |
msoTextEffect5 |
msoTextEffect6 |
msoTextEffect7 |
msoTextEffect8 |
msoTextEffect9 |
msoTextEffectMixed |
expression.PresetTextEffect
expression 必需。该表达式返回一个 TextEffectFormat 对象。
设置 PresetTextEffect 属性将自动设置指定图形的许多其他格式属性。
本示例将 myDocument
中所有“艺术字”样式设置为“‘艺术字’库”对话框中的第一种样式。
Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
If s.Type = msoTextEffect Then
s.TextEffect.PresetTextEffect = msoTextEffect1
End If
Next