GradientColorType Property

Microsoft Word Visual Basic

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

MsoGradientColorType can be one of these MsoGradientColorType constants.
msoGradientColorMixed
msoGradientOneColor
msoGradientPresetColors
msoGradientTwoColors

expression.GradientColorType

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