全部显示

PresetShape 属性

       

返回或设置指定“艺术字”的图形样式。MsoPresetTextEffectShape,可读写。

expression.PresetShape

expression   必需。该表达式返回一个 TextEffectFormat 对象。

说明

如果设置 PresetTextEffect 属性,将自动设置 PresetShape 属性。

示例

本示例将 myDocument 中所有“艺术字”图形设置为中点向下拉的 V 形样式。

Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
    If s.Type = msoTextEffect Then
        s.TextEffect.PresetShape = msoTextEffectShapeChevronDown
    End If
Next