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 that 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 Office PowerPoint.

Visual Basic for Applications 
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: