OneColorGradient Method

Microsoft Excel Visual Basic

Show All

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