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.


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