Clase ColorStop (Excel VBA)

La clase ColorStop representa el punto de detención del color en un relleno degradado de un rango o una selección.

Los principales procedimientos de la clase ColorStop son Delete y ColorStops.Add

Set

Para usar una variable de clase ColorStop, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase ColorStop : ColorStops.Item, ColorStops.Add, LinearGradient.ColorStops y RectangularGradient.ColorStops

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ColorStop en una colección.

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

Métodos

Los principales métodos de la clase ColorStop son

Delete - Elimina el objeto representado.

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

ColorStops.Add - Agrega un objeto ColorStop a la colección especificada.

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

Otros Métodos

ColorStops.Clear - Borra el objeto representado.

ColorStops.Item - Devuelve un solo objeto de la colección representada.

Propiedades

Color Devuelve o establece el color del objeto representado.

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

Parent Devuelve el objeto primario del objeto especificado.

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

Position Devuelve o establece la posición del objeto ColorStopPivotLine.

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

ThemeColor Devuelve o establece el color de tema del objeto representado.

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

TintAndShade Devuelve el tono y la sombra del objeto representado.

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

ColorStops.Count Devuelve o establece el número de unidades del objeto representado.

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

ColorStops.Parent Devuelve el objeto primario del objeto especificado.

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