expression.GradientDegree
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets the chart's fill format so that its gradient degree is at least 0.3.
With myChart.ChartArea.Fill
If .Type = msoFillGradient Then
If .GradientColorType = msoGradientOneColor Then
If .GradientDegree < 0.3 Then
.OneColorGradient .GradientStyle, _
.GradientVariant, 0.3
End If
End If
End If
End With