Clase Sparkline (Excel VBA)

La clase Sparkline representa un único minigráfico.

El principal procedimiento de la clase Sparkline es SparklineGroup.Delete

Set

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

Dim sprln as Sparkline
Set sprln = ActiveCell.SparklineGroups(1)(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Sparkline : SparklineGroup.Item, SparkAxes.Parent, Parent, SparklineGroups.Item, SparklineGroups.Add y SparkPoints.Parent

For Each

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

Dim sprlnParent As Sparkline
For Each sprlnParent In ActiveCell.SparklineGroups.Parent
	
Next sprlnParent

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Display/Show with its procedures SparklineGroup.DisplayBlanksAs y SparklineGroup.DisplayHidden

Métodos

Este es el método principal de la clase Sparkline

SparklineGroup.Delete - Elimina el grupo de minigráficos.

ActiveCell.SparklineGroups(1).Delete

Otros Métodos

ModifyLocation - Modifica la ubicación de un solo minigráfico.

ModifySourceData - Modifica los datos de origen de un solo minigráfico.

SparklineGroup.Modify - Establece la ubicación y los datos de origen del grupo de minigráficos.

SparklineGroup.ModifyDateRange - Establece el intervalo de fechas para el grupo de minigráficos.

SparklineGroup.ModifyLocation - Establece el objeto Range asociado para modificar la ubicación del grupo de minigráficos.

SparklineGroup.ModifySourceData - Establece el rango que representa los datos de origen para el grupo de minigráficos.

Propiedades

Location

ActiveCell.SparklineGroups(1)(1).Location =

Parent Devuelve el objeto SparklineGroup primario del objeto especificado. Solo lectura.

Dim sprlngParent As SparklineGroup
Set sprlngParent = ActiveCell.SparklineGroups(1)(1).Parent

SourceData Devuelve o establece el rango que contiene los datos de origen de un solo minigráfico. Lectura y escritura.

ActiveCell.SparklineGroups(1)(1).SourceData =

SparklineGroup.Axes Devuelve el objeto SparkAxes asociado. Solo lectura.

Dim sasAxes As SparkAxes
Set sasAxes = ActiveCell.SparklineGroups(1).Axes

SparklineGroup.Count Devuelve el número de minigráficos del grupo de minigráficos. Solo lectura.

Dim lngCount As Long
lngCount = ActiveCell.SparklineGroups(1).Count

SparklineGroup.DateRange Obtiene o establece el intervalo de fechas para el grupo de minigráficos. Lectura y escritura.

ActiveCell.SparklineGroups(1).DateRange =

SparklineGroup.Item Devuelve un objeto minigráfico . Solo lectura.

Dim sprlnItem As Sparkline
Set sprlnItem = ActiveCell.SparklineGroups(1)(Index:=1)

SparklineGroup.LineWeight Obtiene o establece el grosor de los minigráficos del grupo de minigráficos. Lectura y escritura.

ActiveCell.SparklineGroups(1).LineWeight =

Location

ActiveCell.SparklineGroups(1).Location =

SparklineGroup.Parent Devuelve el objeto primario del objeto especificado. Solo lectura.

Dim objParent As Object
Set objParent = ActiveCell.SparklineGroups(1).Parent

SparklineGroup.PlotBy Devuelve o establece el modo en que se traza el minigráfico cuando los datos en que está basado están en un rango de forma cuadrada. Lectura y escritura.

ActiveCell.SparklineGroups(1).PlotBy = xlSparklineColumnsSquare

SparklineGroup.Points Devuelve el objeto sparkpoints ( asociado para el grupo de minigráficos. Solo lectura.

Dim spsPoints As SparkPoints
Set spsPoints = ActiveCell.SparklineGroups(1).Points

SparklineGroup.SeriesColor Devuelve un objeto FormatColor que representa el color de la serie principal para el grupo de minigráficos. Solo lectura.

Dim fcrSeriesColor As FormatColor
Set fcrSeriesColor = ActiveCell.SparklineGroups(1).SeriesColor

SparklineGroup.SourceData Devuelve o establece el rango que contiene los datos de origen para el grupo de minigráficos. Lectura y escritura.

ActiveCell.SparklineGroups(1).SourceData =

SparklineGroup.Type Obtiene o establece el tipo de minigráfico para el grupo. Lectura y escritura.

ActiveCell.SparklineGroups(1).Type = xlSparkColumn