| 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. Example: 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 " & _ oCimFillFmt.GradientDegree End If End Sub |