Classe ColorStops - objetos ColorStop (Excel VBA)

Uma coleção de todos os objetos ColorStop para a série especificada. Para usar uma variável de classe ColorStops, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens ColorStops em uma coleção.

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

Add

Adiciona um objeto ColorStop à coleção especificada.

Add (Position)

Position: Representa a posição na qual aplicar ColorStop.

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

Clear

Limpa o objeto representado.

ActiveCell.Interior.Gradient.ColorStops.Clear

Count

Retorna ou define a contagem do objeto representado. Somente leitura.

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

Item

Retorna um único objeto da coleção representada.

Item (Index)

Index: O nome ou número de índice do objeto.

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