Excel VBA教程:PresetGradient方法

应用于 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

 

Excel VBA教程:PresetGradient方法·示例

本示例以第一个图表中使用的填充格式对第二个图表的填充格式进行设置。


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

上页:Excel VBA教程:PresetDrop方法 下页:Excel VBA教程:PresetTextured方法

Excel VBA教程:PresetGradient方法

Excel VBA教程:PresetTextured方法 Excel VBA教程:Previous方法
Excel VBA教程:PrevNode方法 Excel VBA教程:PrintOut方法
Excel VBA教程:PrintPreview方法 Excel VBA教程:Protect方法
Excel VBA教程:ProtectSharing方法 Excel VBA教程:Publish方法
Excel VBA教程:PurgeChangeHistoryNow方法 Excel VBA教程:Quit方法
Excel VBA教程:RadarGroups方法 Excel VBA教程:RangeFromPoint方法
Excel VBA教程:RecheckSmartTags方法 Excel VBA教程:Record方法
Excel VBA教程:RecordMacro方法 Excel VBA教程:Refresh方法
Excel VBA教程:RefreshAll方法 Excel VBA教程:RefreshData方法
Excel VBA教程:RefreshTable方法 Excel VBA教程:RegisterXLL方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号