GradientColorType Property

  • Article

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 = ActiveDocumentFor EachshapeLoopIn docActive.Shapes
    WithshapeLoop.Fill
        If .GradientColorType = msoGradientTwoColors Then
            .PresetGradient msoGradientHorizontal, 1, _
                msoGradientBrass
        End If
    End With
Next

Applies to | FillFormat Object