PresetGradient Method Example

This example adds a rectangle with a preset gradient fill to myDocument.

Set myDocument = ActiveDocument
myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 140, 80) _
    .Fill.PresetGradient msoGradientHorizontal, 1, msoGradientBrass