OneColorGradient Method Example

This example adds a rectangle with a one-color gradient fill to myDocument.

Set myDocument = ActiveDocument
With myDocument.Shapes.AddShape(msoShapeRectangle, _
        90, 90, 90, 80).Fill
    .ForeColor.RGB = RGB(0, 128, 128)
    .OneColorGradient msoGradientHorizontal, 1, 1
End With