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. |
Comentarios
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
Consulte también
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.