Excel VBA教程:OneColorGradient方法

应用于 FillFormat对象的 OneColorGradient方法。

将指定填充设为单色过渡。

expression.OneColorGradient(Style, Variant, Degree)

expression   必需。该表达式返回上述对象之一。

Style  MsoGradientStyle 类型,必需。

MsoGradientStyle 可为以下 MsoGradientStyle 常量之一。
msoGradientDiagonalDown
msoGradientDiagonalUp
msoGradientFromCenter
msoGradientFromCorner
msoGradientFromTitle
msoGradientHorizontal
msoGradientMixed
msoGradientVertical

Variant   Integer 类型,必需。过渡变量。取值范围为 1 到 4 之间,分别与“填充效果”对话框中“过渡”选项卡的四个过渡变量相对应。如果 GradientStyle 设为 msoGradientFromCenter,则 Variant 参数只能设为 1 或 2。

Degree   Single 类型,必需。灰度。取值范围为 0.0(表示最深)到 1.0(表示最浅)之间。

 

应用于 ChartFillFormat对象的 OneColorGradient方法。

将指定填充设为单色过渡。

expression.OneColorGradient(Style, Variant, Degree)

expression   必需。该表达式将返回上述对象之一。

Style  MsoGradientStyle 类型,必需。

MsoGradientStyle 可为以下 MsoGradientStyle 常量之一。
msoGradientDiagonalDown
msoGradientDiagonalUp
msoGradientFromCenter
msoGradientFromCorner
msoGradientFromTitle
msoGradientHorizontal
msoGradientMixed
msoGradientVertical

Variant   Long 类型,必需。过渡变量。取值范围为 1 到 4 之间,分别与“填充效果”对话框中“过渡”选项卡的四个过渡变量相对应。如果 GradientStyle 设为 msoGradientFromCenter,则 Variant 参数只能设为 1 或 2。

Degree   Single 类型,必需。灰度。取值范围为 0.0(表示最深)到 1.0(表示最浅)之间。

 

示例

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


Set c1f = Charts(1).ChartArea.Fill
If c1f.Type = msoFillGradient And _
        c1f.GradientColorType = msoGradientOneColor Then
    With Charts(2).ChartArea.Fill
        .Visible = True
        .OneColorGradient c1f.GradientStyle, _
            c1f.GradientVariant, c1f.GradientDegree
    End With
End If

上页:Excel VBA教程:OLEObjects方法 下页:Excel VBA教程:OnKey方法

Excel VBA教程:OneColorGradient方法

Excel VBA教程:OnKey方法 Excel VBA教程:OnRepeat方法
Excel VBA教程:OnTime方法 Excel VBA教程:OnUndo方法
Excel VBA教程:Open方法 Excel VBA教程:OpenDatabase方法
Excel VBA教程:OpenLinks方法 Excel VBA教程:OpenText方法
Excel VBA教程:OpenXML方法 Excel VBA教程:Parse方法
Excel VBA教程:Paste方法 Excel VBA教程:PasteSpecial方法
Excel VBA教程:Patterned方法 Excel VBA教程:PickUp方法
Excel VBA教程:PieGroups方法 Excel VBA教程:PivotCache方法
Excel VBA教程:PivotCaches方法 Excel VBA教程:PivotFields方法
Excel VBA教程:PivotItems方法 Excel VBA教程:PivotSelect方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号