expression.OneColorGradient(Style, Variant, Degree)
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.
Degree Required Single. The gradient degree. Can be a value from 0.0 (dark) to 1.0 (light).
Example
This example adds a rectangle with a one-color gradient fill to the active publication.
With ActiveDocument.Pages(1).Shapes _
.AddShape(Type:=msoShapeRectangle, _
Left:=90, Top:=90, Width:=90, Height:=80).Fill
.ForeColor.RGB = RGB(0, 128, 128)
.OneColorGradient Style:=msoGradientHorizontal, _
Variant:=1, Degree:=1
End With