GradientStyle 属性

       

返回指定填充的过渡样式。MsoGradientStyle 类型,只读。

expression.GradientStyle

expression   必需。该表达式返回“应用于”列表中的对象之一。

示例

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