GradientColorType Property

Returns the gradient color type for the specified fill. Read-only MsoGradientColorType.

expression   Required. An expression that returns one of the objects in the Applies To list.

This property is read-only. Use the OneColorGradient, PresetGradient, or TwoColorGradient method to set the gradient type for the fill.

Example

This example changes the fill for all shapes in the active document that have a two-color gradient fill to a preset gradient fill.

Dim docActive As Document
Dim shapeLoop As Shape

Set docActive = ActiveDocument

For Each shapeLoop In docActive.Shapes
    With shapeLoop.Fill
        If .GradientColorType = msoGradientTwoColors Then
            .PresetGradient msoGradientHorizontal, 1, _
                msoGradientBrass
        End If
    End With
Next