Klasse ColorStops - ColorStop -Objekte (Excel VBA)

Eine Auflistung aller ColorStop -Objekte für die angegebene Datenreihe. Um eine ColorStops -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

For Each

Hier ist ein Beispiel für die Verarbeitung der ColorStops -Elemente in einer Sammlung

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

Add

Fügt der angegebenen Auflistung ein ColorStop -Objekt hinzu.

Add (Position)

Position: Stellt die Position dar, in der die ColorStopangewendet werden soll.

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

Clear

Entfernt das dargestellte Objekt.

ActiveCell.Interior.Gradient.ColorStops.Clear

Count

Gibt die Anzahl für das dargestellte Objekt zurück oder legt die Anzahl fest.

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

Item

Gibt ein einzelnes Objekt aus der dargestellten Auflistung zurück.

Item (Index)

Index: Der Name oder die Indexnummer für das Objekt.

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