PresetGradientType 属性

       

返回或预设指定填充的过渡类型。只读。MsoPresetGradientType 类型。使用 PresetGradient 方法设置该填充的预设过渡类型。

expression.PresetGradientType

expression  必选。该表达式返回“应用于”列表中的对象之一。

示例

本示例将 myDocument 中所有带有 Moss 预设过渡填充的形状更改为 Fog 预设过渡填充。

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    With s.Fill
        If .PresetGradientType = msoGradientMoss Then
            .PresetGradient = msoGradientFog
        End If
    End With
Next