GradientColorType Property

Microsoft Word Visual Basic

GradientColorType Property

       

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