and BackColor
properties.
expression.TwoColorGradient(Style, Variant)
expression Required. An expression that returns one of the objects in the Applies To list.
Style Required MsoGradientStyle. The gradient style.
| MsoGradientStyle can be one of these MsoGradientStyle constants. |
| msoGradientDiagonalDown |
| msoGradientDiagonalUp |
| msoGradientFromCenter |
| msoGradientFromCorner |
| msoGradientFromTitle |
| msoGradientHorizontal |
| msoGradientMixed Not used with this method. |
| msoGradientVertical |
Variant Required Long. The gradient variant. Can be a value from 1 to 4, corresponding to the four variants on the Gradient tab in the Fill Effects dialog box. If Style is msoGradientFromTitle or msoGradientFromCenter, this argument can be either 1 or 2.
Example
This example adds a rectangle with a two-color gradient fill to the active publication and sets the background and foreground color for the fill.
With ActiveDocument.Pages(1).Shapes _
.AddShape(Type:=msoShapeRectangle, _
Left:=0, Top:=0, Width:=40, Height:=80).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.BackColor.RGB = RGB(0, 170, 170)
.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
End With