应用于 FillFormat 对象的 PresetGradient 方法。
将指定填充设为预设的过渡。
expression.PresetGradient(Style, Variant, PresetGradientType)
expression 必需。该表达式返回上述对象之一。
Style MsoGradientStyle 类型,必需。
| MsoGradientStyle 可为以下 MsoGradientStyle 常量之一。 | 
| msoGradientDiagonalDown | 
| msoGradientDiagonalUp | 
| msoGradientFromCenter | 
| msoGradientFromCorner | 
| msoGradientFromTitle | 
| msoGradientHorizontal | 
| msoGradientMixed | 
| msoGradientVertical | 
Variant Integer 类型,必选。过渡变量。取值范围为 1 到 4 之间,分别与“填充效果”对话框中“过渡”选项卡的四个过渡变量相对应。如果 GradientStyle 设为 msoGradientFromCenter,则 Variant 参数只能设为 1 或 2。
PresetGradientType MsoPresetGradientType 类型,必需。
| MsoPresetGradientType 可为以下 MsoPresetGradientType 常量之一。 | 
| msoGradientRainbow | 
| msoGradientBrass | 
| msoGradientCalmWater | 
| msoGradientChrome | 
| msoGradientChromeII | 
| msoGradientDaybreak | 
| msoGradientDesert | 
| msoGradientEarlySunset | 
| msoGradientFire | 
| msoGradientFog | 
| msoGradientGold | 
| msoGradientGoldII | 
| msoGradientHorizon | 
| msoGradientLateSunset | 
| msoGradientMahogany | 
| msoGradientMoss | 
| msoGradientNightfall | 
| msoGradientOcean | 
| msoGradientParchment | 
| msoGradientPeacock | 
| msoGradientRainbowII | 
| msoGradientSapphire | 
| msoGradientSilver | 
| msoGradientWheat | 
| msoPresetGradientMixed | 
应用于 ChartFillFormat 对象的 PresetGradient 方法。
将指定填充设为预设的过渡。
expression.PresetGradient(Style, Variant, PresetGradientType)
expression 必需。该表达式返回上述对象中之一。
Style MsoGradientStyle 类型,必需。
| MsoGradientStyle 可为以下 MsoGradientStyle 常量之一。 | 
| msoGradientDiagonalDown | 
| msoGradientDiagonalUp | 
| msoGradientFromCenter | 
| msoGradientFromCorner | 
| msoGradientFromTitle | 
| msoGradientHorizontal | 
| msoGradientMixed | 
| msoGradientVertical | 
Variant Long 类型,必需。过渡变量。取值范围为 1 到 4 之间,分别与“填充效果”对话框中“过渡”选项卡的四个过渡变量相对应。如果 GradientStyle 设为 msoGradientFromCenter,则 Variant 参数只能设为 1 或 2。
PresetGradientType MsoPresetGradientType 类型,必需。
| MsoPresetGradientType 可为以下 MsoPresetGradientType 常量之一。 | 
| msoGradientRainbow | 
| msoGradientBrass | 
| msoGradientCalmWater | 
| msoGradientChrome | 
| msoGradientChromeII | 
| msoGradientDaybreak | 
| msoGradientDesert | 
| msoGradientEarlySunset | 
| msoGradientFire | 
| msoGradientFog | 
| msoGradientGold | 
| msoGradientGoldII | 
| msoGradientHorizon | 
| msoGradientLateSunset | 
| msoGradientMahogany | 
| msoGradientMoss | 
| msoGradientNightfall | 
| msoGradientOcean | 
| msoGradientParchment | 
| msoGradientPeacock | 
| msoGradientRainbowII | 
| msoGradientSapphire | 
| msoGradientSilver | 
| msoGradientWheat | 
| msoPresetGradientMixed | 
本示例以第一个图表中使用的填充格式对第二个图表的填充格式进行设置。
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