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