Clase ColorStops - objetos ColorStop (Excel VBA)

Colección de todos los objetos ColorStop de la serie especificada. Para usar una variable de clase ColorStops, primero debe ser instanciado, por ejemplo

Dim css as ColorStops
Set css = ActiveCell.Interior.Gradient.ColorStops

For Each

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

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

Add

Agrega un objeto ColorStop a la colección especificada.

Add (Position)

Position: Representa la posición en la que se va a aplicar el ColorStop.

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

Clear

Borra el objeto representado.

ActiveCell.Interior.Gradient.ColorStops.Clear

Count

Devuelve o establece el número de unidades del objeto representado.

Dim lngCount As Long
lngCount = ActiveCell.Interior.Gradient.ColorStops.Count

Item

Devuelve un solo objeto de la colección representada.

Item (Index)

Index: Número de índice o nombre del objeto.

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