GefFillFormat.GradientColorType (read-only property)

Gets whether it is one or two color gradient shading as gefGradientColorTypeEnum.
Syntax: GefGradientColorTypeEnum = object.GradientColorType
Description: This property is only valid if the Type of the GefFillFormat is GefFillGradient.

You can set this property by using the OneColorGradient or TwoColorGradient methods.

Example:

Sub FillFormat_GradientColorType()
    
    Dim oCimObj As GefObject
    Dim oCimFillFmt As GefFillFormat
    
    Set oCimObj = CimGetObject
    Set oCimFillFmt = oCimObj.Fill
    
    Select Case oCimFillFmt.GradientColorType
        Case gefGradientMixedValue
            MsgBox "The current objects fill gradient type " & _
                "is unknown"
        Case gefGradientOneColor
            MsgBox "The current objects fill gradient type " & _
                "is set to one color"
        Case gefGradientTwoColor
            MsgBox "The current objects fill gradient type " & _
                "is set to two colors"
    End Select
    
End Sub