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 | MsoThemeColorSchemeIndex | 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
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.