GefFillFormat.GradientStyle (read-only property)

Gets the style of the gradient as a gefGradientStyleEnum.
Syntax: GefGradientStyleEnum = object.GradientStyle
Description: This property is only valid if the Type of the GefFillFormat is GefFillGradient.


Sub FillFormat_GradientStyle()
    Dim oCimObj As GefObject
    Dim oCimFillFmt As GefFillFormat
    Set oCimObj = CimGetObject
    Set oCimFillFmt = oCimObj.Fill
    Select Case oCimFillFmt.GradientStyle
        Case gefGradientStyleMixedValue
            MsgBox "The gradient style is in an unknown state"
        Case gefGradientHorizontal
            MsgBox "The gradient style is horizontal"
        Case gefGradientVertical
            MsgBox "The gradient style is vertical"
        Case gefGradientDiagonalUp
            MsgBox "The gradient style is diagonal up"
        Case gefGradientDiagonalDown
            MsgBox "The gradient style is diagonal down"
        Case gefGradientFromCorner
            MsgBox "The gradient style is from corner"
        Case gefGradientToCorner
            MsgBox "The gradient style is to corner"
        Case gefGradientFromCenter
            MsgBox "The gradient style from center"
    End Select
End Sub