Classe ColorStop - point d’arrêt d’une couleur (Excel VBA)

La classe ColorStop représente le point d’arrêt d’une couleur pour un dégradé d’une plage ou d’une sélection. Pour utiliser une variable de classe ColorStop, elle doit d'abord être instanciée, par exemple

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

For Each

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

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

Color

Renvoie ou définit la couleur de l'objet représenté. Lecture-écriture.

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

Delete

Cette méthode supprime l'objet représenté.

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

Position

Renvoie ou définit la position de ColorStop. Lecture-écriture.

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

ThemeColor

Renvoie ou définit la couleur de thème de l'objet représenté. Lecture-écriture.

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

TintAndShade

Renvoie ou définit la teinte et l’ombre de l’objet représenté. Lecture/écriture