GradientStops.Insert Method (Office)
Adds a stop to a gradient.
Syntax
expression .Insert(RGB, Position, Transparency, Index)
expression An expression that returns a GradientStops object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
RGB |
Required |
MsoRGBType |
Specifies the color at the gradient stop. |
Position |
Required |
Single |
Specifies the position of the stop within the gradient expressed as a percent. |
Transparency |
Optional |
Single |
Specifies the opacity of color at the gradient stop. |
Index |
Optional |
Long |
The index number of the stop. |
Remarks
Gradients are a smooth transition from one color state to another. The endpoints of these sections are called stops.
Example
The following example creates three color gradient stops in Microsoft PowerPoint.
Sub gradients()
Set myDocument = ActivePresentation.Slides(1)
Set GradientShapeFill = myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill
With GradientShapeFill
.ForeColor.RGB = RGB(0, 128, 128)
.OneColorGradient msoGradientHorizontal, 1, 1
.GradientStops.Insert RGB(255, 0, 0), 0.25
.GradientStops.Insert RGB(0, 255, 0), 0.5
.GradientStops.Insert RGB(0, 0, 255), 0.75
End With
End Sub