SetOneColorGradient Method

  • Article

Fills the specified ChInterior object with a one-color gradient.

expression.SetOneColorGradient(GradientStyle, GradientVariant, GradientDegree, Color)

*expression   * Required. An expression that returns a ChInterior object.

ChartGradientStyleEnum

ChartGradientStyleEnum can be one of these ChartGradientStyleEnum constants.
chGradientDiagonalDown
chGradientDiagonalUp
chGradientFromCenter When setting this argument to chGradientFromCenter, the only GradientVariant choices are chGradientVariantEnd and chGradientVariantStart.
chGradientFromCorner
chGradientHorizontal
chGradientVertical

ChartGradientVariantEnum

ChartGradientVariantEnum can be one of these ChartGradientVariantEnum constants.
chGradientVariantCenter
chGradientVariantEdges
chGradientVariantEnd
chGradientVariantStart

GradientDegree   Required Double. The gradient degree. Can be a value from 0.0 (dark) through 1.0 (light).

Color   Optional Variant. The foreground color for the gradient. You can use either a Long value representing a red-green-blue color value or a String value naming a valid HTML color value. In Microsoft Visual Basic, you can use the RGB function to create a red-green-blue color value (for example, red is RGB(255,0,0)). If this argument is omitted, then the Color property is used.

Example

This example sets the interior fill of the first two series and the plot area of the first chart in ChartSpace1.

Sub FormatInteriorColors()

    Dim chConstants
    Dim serSeries1
    Dim serSeries2

    Set chConstants = ChartSpace1.Constants

    Set serSeries1 = ChartSpace1.Charts(0).SeriesCollection(0)
    Set serSeries2 = ChartSpace1.Charts(0).SeriesCollection(1)

    ' Set the interior fill of the first series to a one-color gradient.
    serSeries1.Interior.SetOneColorGradient chConstants.chGradientDiagonalDown, _
              chConstants.chGradientVariantCenter, 0.2, "Blue"

    ' Set the interior fill of the second series to a preset gradient.
    serSeries2.Interior.SetPresetGradient chConstants.chGradientFromCenter, _
               chConstants.chGradientVariantEnd, chConstants.chGradientDaybreak

    ' Set the interior fill of the plot area to a pattern.
    ChartSpace1.Charts(0).PlotArea.Interior.SetPatterned chConstants.chPattern10Percent, _
               "Yellow", "Blue"

End Sub

Applies to | ChInterior Object

See Also | ChInterior Object | SetPatterned Method | SetPresetGradient Method | SetTextured Method | SetTwoColorGradient Method