全部显示

PresetTextEffect 属性

       

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

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