Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
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