返回或设置指定的艺术字对象的样式。 本属性的值相应于“‘艺术字’库”对话框内的格式(按从左至右和从上至下的顺序编号)。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 必需。该表达式返回“应用于”列表中的对象之一。
设置 PresetTextEffect 属性的值,将使相应图形的许多其他格式属性自动得到设置。
本示例将 myDocument
中所有艺术字对象的样式设置为“‘艺术字’库”对话框内的第一个样式。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.Type = msoTextEffect Then
s.TextEffect.PresetTextEffect = msoTextEffect1
End If
Next