Classe ColorStop (Excel VBA)

A classe ColorStop representa o ponto de parada de cor de um preenchimento gradual em um intervalo ou seleção.

Os principais procedimentos da classe ColorStop são Delete e ColorStops.Add

Set

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)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo ColorStop: ColorStops.Item, ColorStops.Add, LinearGradient.ColorStops e RectangularGradient.ColorStops

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

Métodos

Estes são os principais métodos da classe ColorStop

Delete - Exclui o objeto representado.

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

ColorStops.Add - Adiciona um objeto ColorStop à coleção especificada.

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

Estes são os principais métodos da classe

ColorStops.Clear - Limpa o objeto representado.

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

Propriedades

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

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

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

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

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.

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

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

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

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

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

ColorStops.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

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