GefFillFormat.GradientDegree (read-only property)

Gets how dark or light one color gradients shade to as a floating point number.
Syntax: VARIANT = object.GradientDegree
Description: For GefGradientOneColor, this property specifies how dark the color is. A value of zero means that black is mixed in with the shape's foreground color to form the gradient.

A value of one means that white is mixed in.

Values between zero and one mean that a darker or lighter shade of the foreground color is mixed in.


Sub FillFormat_GradientDegree()
    Dim oCimObj As GefObject
    Dim oCimFillFmt As GefFillFormat
    Set oCimObj = CimGetObject
    Set oCimFillFmt = oCimObj.Fill
    If Not oCimFillFmt Is Nothing Then
        MsgBox " The gradient degree is set to " & _
    End If
End Sub