OneColorGradient Method

Applies To

FillFormat object.

Description

Sets the specified fill to a one-color gradient.

Syntax

expression.OneColorGradient(Style, Variant, Degree)

expression Required. An expression that returns a FillFormat object.

Style Required Long. The gradient style. Can be one of the following MsoGradientStyle constants: msoGradientDiagonalDown, msoGradientDiagonalUp, msoGradientFromCenter, msoGradientFromCorner, msoGradientFromTitle, msoGradientHorizontal, or 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).

See Also

Background method, GradientColorType property, GradientDegree property, GradientStyle property, GradientVariant property, Patterned method, PresetGradient method, PresetTextured method, Solid method, TwoColorGradient method, UserTextured method.

Example

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

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