Share via

OneColorGradient Method [Publisher 2003 VBA Language Reference]

  • Article

Sets the specified fill to a one-color gradient.

expression.OneColorGradient(Style, Variant, Degree)

expression Required. An expression that returns one of the objects in the Applies To list.

MsoGradientStyle

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

Applies to | FillFormat Object