FillFormat.GradientColorType Property (Word)
Returns the gradient color type for the specified fill. Read-only MsoGradientColorType.
Syntax
expression .GradientColorType
expression An expression that represents a FillFormat object.
Remarks
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