Clase ColorStop - punto de detención del color (Excel VBA)

La clase ColorStop representa el punto de detención del color en un relleno degradado de un rango o una selección. Para usar una variable de clase ColorStop, primero debe ser instanciado, por ejemplo

Dim cstp as ColorStop
Set cstp = ActiveCell.Interior.Gradient.ColorStops(Index:=1)

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ColorStop en una colección.

Dim cstp As ColorStop
For Each cstp In ActiveCell.Interior.Gradient.ColorStops
	
Next cstp

Color

Devuelve o establece el color del objeto representado.

ActiveCell.Interior.Gradient.ColorStops(1).Color =

Delete

Elimina el objeto representado.

ActiveCell.Interior.Gradient.ColorStops(1).Delete

Position

Devuelve o establece la posición del objeto ColorStopPivotLine.

ActiveCell.Interior.Gradient.ColorStops(1).Position =

ThemeColor

Devuelve o establece el color de tema del objeto representado.

Range("A1:A10").Select 
With Selection.Interior.Gradient.ColorStop.Add(1) 
 .ThemeColor = xlThemeColorAccent1 
 .TintAndShade = 0 
End With

TintAndShade

Devuelve el tono y la sombra del objeto representado.