Classe ColorStop - ponto de parada de cor (Excel VBA)

A classe ColorStop representa o ponto de parada de cor de um preenchimento gradual em um intervalo ou seleção. Para usar uma variável de classe ColorStop, ela primeiro precisa ser instanciada por exemplo

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

For Each

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

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

Color

Retorna ou define a cor do objeto representado. Leitura/gravação.

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

Delete

Exclui o objeto representado.

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

Position

Retorna ou define a posição do objeto ColorStop. Leitura/gravação.

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

ThemeColor

Retorna ou define a cor do tema do objeto representado. Leitura/gravação.

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

TintAndShade

Retorna ou define a tonalidade e o sombreamento do objeto representado. Leitura/gravação