PresetTextEffect 属性

       

返回或设置指定的艺术字对象的样式。 本属性的值相应于“‘艺术字’库”对话框内的格式(按从左至右和从上至下的顺序编号)。MsoPresetTextEffect 类型,可读写。

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