This documentation is archived and is not being maintained.

TwoColorGradient Method

Office 2003

Sets the specified fill to a two-color gradient.

expression.TwoColorGradient(Style, Variant)

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

MsoGradientStyle can be one of these MsoGradientStyle constants.
msoGradientDiagonalDown
msoGradientDiagonalUp
msoGradientFromCenter
msoGradientFromCorner
msoGradientFromTitle
msoGradientHorizontal
msoGradientMixed
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 myDocument, and sets the background and foreground color for the fill.

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, Left:=0, _
        Top:=0, Width:=40, Height:=80).Fill
    .ForeColor.RGB = RGB(Red:=128, Green:=0, Blue:=0)
    .BackColor.RGB = RGB(Red:=0, Green:=170, Blue:=170)
    .TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
End With
		


Applies to | FillFormat Object



Show: