TwoColorGradient 方法

       

将指定的填充设为双色过渡。

expression.TwoColorGradient(Style, Variant)

expression   必需。返回 FillFormat 对象的表达式。

 Style   MsoGradientStyle 类型,必需。过渡样式。

Variant   Long 类型,必需。过渡变量。取值范围为从 1 到 4,对应于“填充效果”对话框中“过渡”选项卡上的四种变形。如果 StylemsoGradientFromCenter,则此参数可为 1 或 2。

示例

本示例将一个具有双色过渡填充方式的矩形添加到活动文档中,然后设置填充的背景色和前景色。

With ActiveDocument.Shapes.AddShape(msoShapeRectangle, _
        0, 0, 40, 80).Fill
    .ForeColor.RGB = RGB(128, 0, 0)
    .BackColor.RGB = RGB(0, 170, 170)
    .TwoColorGradient msoGradientHorizontal, 1
End With