Classe ColorStop (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.

Les procédures principales de la classe ColorStop sont Delete et ColorStops.Add

Set

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)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ColorStop : ColorStops.Item, ColorStops.Add, LinearGradient.ColorStops et RectangularGradient.ColorStops

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

Méthodes

Les méthodes principales de la classe ColorStop sont

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

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

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

Dim dblPosition As Double: dblPosition = 
Dim cstp As ColorStop
Set cstp = ActiveCell.Interior.Gradient.ColorStops.Add(Position:=dblPosition)

Autre Méthodes

ColorStops.Clear - Efface l’objet représenté.

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

Propriétés

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

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

Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveCell.Interior.Gradient.ColorStops(1).Parent

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.

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

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

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

ColorStops.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

ColorStops.Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveCell.Interior.Gradient.ColorStops.Parent