Removes a gradient stop.
expression. Delete( ** Index** )
expression An expression that returns a GradientStops object.
| Name | Required/Optional | Data Type | Description |
|---|---|---|---|
| Index | Optional | Integer | The index number of the gradient stop. |
Gradients are a smooth transition from one color state to another. The endpoints of these sections are called stops.
The following example adds three gradient color stops and then deletes the first gradient stop.
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
GradientShapeFill.GradientStops.Delete (1)
End Sub