OneColorGradient Method
OneColorGradient method as it applies to the FillFormat object.
Sets the specified fill to a one-color gradient.
expression.OneColorGradient(Style, Variant, Degree)
expression Required. An expression that returns one of the above objects.
Style Required MsoGradientStyle.
| MsoGradientStyle can be one of these MsoGradientStyle constants. |
| msoGradientDiagonalDown |
| msoGradientDiagonalUp |
| msoGradientFromCenter |
| msoGradientFromCorner |
| msoGradientFromTitle |
| msoGradientHorizontal |
| msoGradientMixed |
| msoGradientVertical |
Variant Required Integer. The gradient variant. Can be a value from 1 through 4, corresponding to one of the four variants on the Gradient tab in the Fill Effects dialog box. If GradientStyle is msoGradientFromCenter, the Variant argument can only be 1 or 2.
Degree Required Single. The gradient degree. Can be a value from 0.0 (dark) through 1.0 (light).
OneColorGradient method as it applies to the ChartFillFormat object.
Sets the specified fill to a one-color gradient.
expression.OneColorGradient(Style, Variant, Degree)
expression Required. An expression that returns one of the above objects.
Style Required MsoGradientStyle.
| MsoGradientStyle can be one of these MsoGradientStyle constants. |
| msoGradientDiagonalDown |
| msoGradientDiagonalUp |
| msoGradientFromCenter |
| msoGradientFromCorner |
| msoGradientFromTitle |
| msoGradientHorizontal |
| msoGradientMixed |
| msoGradientVertical |
Variant Required Long. The gradient variant. Can be a value from 1 through 4, corresponding to one of the four variants on the Gradient tab in the Fill Effects dialog box. If GradientStyle is msoGradientFromCenter, the Variant argument can only be 1 or 2.
Degree Required Single. The gradient degree. Can be a value from 0.0 (dark) through 1.0 (light).
Example
This example sets the fill format for chart two to the same style used for chart one.
Set c1f = Charts(1).ChartArea.Fill
If c1f.Type = msoFillGradient And _
c1f.GradientColorType = msoGradientOneColor Then
With Charts(2).ChartArea.Fill
.Visible = True
.OneColorGradient c1f.GradientStyle, _
c1f.GradientVariant, c1f.GradientDegree
End With
End If