PresetGradientType Property

Microsoft Excel Visual Basic

MsoPresetGradientType can be one of these MsoPresetGradientType constants.
msoGradientBrass
msoGradientChrome
msoGradientDaybreak
msoGradientEarlySunset
msoGradientFog
msoGradientGoldII
msoGradientLateSunset
msoGradientMoss
msoGradientOcean
msoGradientPeacock
msoGradientRainbowII
msoGradientSilver
msoGradientWheat
msoPresetGradientMixed
msoGradientCalmWater
msoGradientChromeII
msoGradientDesert
msoGradientFire
msoGradientGold
msoGradientHorizon
msoGradientMahogany
msoGradientNightfall
msoGradientParchment
msoGradientRainbow
msoGradientSapphire

expression.PresetGradientType

expression    Required. An expression that returns one of the objects in the Applies To list.

Use the PresetGradient method to set the preset gradient type for the fill.

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