PresetGradient Method

Applies To

ChartFillFormat object, FillFormat object.

Description

Sets the specified fill to a preset gradient.

Syntax

expression.PresetGradient(GradientStyle, Variant, PresetGradientType)

expression Required. An expression that returns a FillFormat object.

GradientStyle Required Long. The gradient style. Can be one of the following MsoGradientStyle constants: msoGradientDiagonalDown, msoGradientDiagonalUp, msoGradientFromCenter, msoGradientFromCorner, msoGradientHorizontal, or 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.

PresetGradientType Required Long. The gradient type. Can be one of the following MsoPresetGradientType constants:

msoGradientBrass	msoGradientCalmWater
msoGradientChrome	msoGradientChromeII
msoGradientDaybreak	msoGradientDesert
msoGradientEarlySunset	msoGradientFire
msoGradientFog	msoGradientGold
msoGradientGoldII	msoGradientHorizon
msoGradientLateSunset	msoGradientMahogany
msoGradientMoss	msoGradientNightfall
msoGradientOcean	msoGradientParchment
msoGradientPeacock	msoGradientRainbow
msoGradientRainbowII	msoGradientSapphire
msoGradientSilver	msoGradientWheat
msoPresetGradientMixed

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 Then
    With Charts(2).ChartArea.Fill
        .Visible = True
        .PresetGradient c1f.GradientStyle, _
            c1f.GradientVariant, c1f.PresetGradientType
    End With
End If