将指定的填充设为双色过渡。
expression.TwoColorGradient(Style, Variant)
expression 必需。返回 FillFormat 对象的表达式。
Style MsoGradientStyle 类型，必需。过渡样式。
| MsoGradientStyle 可以是下列 MsoGradientStyle 常量之一： |
| msoGradientDiagonalDown |
| msoGradientDiagonalUp |
| msoGradientFromCenter |
| msoGradientFromCorner |
| msoGradientFromTitle 仅用于 Microsoft PowerPoint。 |
| msoGradientHorizontal |
| msoGradientMixed |
| msoGradientVertical |
Variant Long 类型，必需。过渡变量。取值范围为从 1 到 4，对应于“填充效果”对话框中“过渡”选项卡上的四种变形。如果 Style 为 msoGradientFromCenter，则此参数可为 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