Método GradientStops.Insert (Office)

Agrega un punto a un degradado.

Sintaxis

expresión. Insertar (RGB, Posición, Transparencia, Índice)

expresión Expresión que devuelve un objeto GradientStops .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
RVA	Obligatorio	MsoThemeColorSchemeIndex	Especifica el color en el delimitador de degradado.
Position	Obligatorio	Single	Especifica la posición del delimitador del degradado expresada en forma de porcentaje.
Transparency	Opcional	Single	Especifica la opacidad del color en el punto de degradado.
Index	Opcional	Long	Número de índice del punto de degradado.

Observaciones

Un degradado es una transición sin problemas desde un estado de color a otro. El punto final de estas secciones se denomina punto de degradado.

Ejemplo

En el ejemplo siguiente, se crean tres puntos de degradado de color en 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 

Vea también

• Miembros del objeto GradientStops

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.