Classe ColorStops - objets ColorStop (Excel VBA)

Collection de tous les objets ColorStop de la série spécifiée. Pour utiliser une variable de classe ColorStops, elle doit d'abord être instanciée, par exemple

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

For Each

Voici un exemple de traitement des éléments ColorStops dans une collection

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

Add

Ajoute un objet ColorStop à la collection spécifiée.

Add (Position)

Position: Représente la position à laquelle appliquer la ColorStop.

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

Clear

Efface l’objet représenté.

ActiveCell.Interior.Gradient.ColorStops.Clear

Count

Renvoie ou définit le nombre de l’objet représenté. En lecture seule.

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

Item

Renvoie un seul objet de la collection représentée.

Item (Index)

Index: Nom ou numéro d'index de l'objet.

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