GefFillFormat.GradientVariant (read-only property)

Gets the variant of the gradient as a gefGradientVariantEnum.
Syntax: GefGradientVariantEnum = object.GradientVariant
Description: This property is only valid if the Type of the GefFillFormat is GefFillGradient.

Each gradient style has four variants. The values for this property correspond to the gradient variants (numbered from left to right and from top to bottom) on the Gradient tab in the Fill Effects dialog box.

Example:

Sub FillFormat_GradientVariant()
    
    Dim oCimObj As GefObject
    Dim oCimFillFmt As GefFillFormat
    
    Set oCimObj = CimGetObject
    Set oCimFillFmt = oCimObj.Fill
    Select Case oCimFillFmt.GradientVariant
        Case gefGradientVar1
            MsgBox "The gradient variant is set to the " & _
                "first choice"
        Case gefGradientVar2
            MsgBox "The gradient variant is set to the " & _
                "second choice"
        Case gefGradientVar3
            MsgBox "The gradient variant is set to the " & _
                "third choice"
        Case gefGradientVar4
            MsgBox "The gradient variant is set to the " & _
                "fourth choice"
        Case gefGradientVarMixedValue
            MsgBox "The gradient variant is set to an " & _
                "unknown choice or is not set"
    End Select
    
End Sub