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