全部显示

PresetTextEffect 属性

返回或设置指定“艺术字”的样式。此属性值对应于“‘艺术字’库”对话框（“插入”菜单）中的格式（从左到右，从上到下进行编号）。MsoPresetTextEffect，可读写。

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