Classe SparklineGroups (Excel VBA)

La classe SparklineGroups représente une collection de groupes de graphiques sparkline.

Pour utiliser une variable de classe SparklineGroups, elle doit d'abord être instanciée, par exemple

Dim sgs as SparklineGroups
Set sgs = ActiveCell.SparklineGroups

Les variables du type SparklineGroups peuvent être définies à l'aide de la procédure Range.SparklineGroups

For Each

Voici un exemple de traitement des éléments SparklineGroups dans une collection

Dim sprlng As SparklineGroup
For Each sprlng In ActiveCell.SparklineGroups
	
Next sprlng

Add

Crée un groupe de graphiques sparkline et renvoie un objet SparklineGroup .

Add (Type, SourceData)

Range("$A$1:$A$4").SparklineGroups.Add Type:=xlSparkColumn, SourceData:= _ 
 "Sheet2!B1:E4"

Arguments

Les arguments nommés :

Type (XlSparkType) - Type de graphique sparkline.

Les valeurs de retour possibles sont xlSparkColumn - Histogramme, xlSparkColumnStacked100 - Graphique sparkline Conclusions/Pertes, xlSparkLine - Graphique sparkline en courbes.

SourceData (String) - Représente la plage à utiliser pour créer le graphique sparkline.

Clear

Efface les graphiques sparkline sélectionnés.

ActiveCell.SparklineGroups.Clear

ClearGroups

Efface les groupes de graphiques sparkline sélectionnés.

ActiveCell.SparklineGroups.ClearGroups

Count

Renvoie le nombre de groupes de graphiques sparkline dans l’objet Range associé. En lecture seule.

Dim lngCount As Long
lngCount = ActiveCell.SparklineGroups.Count

Group

Regroupe les graphiques sparkline sélectionnés.

Group (Location)

Location: Emplacement de la première cellule dans le groupe.

Range("A1:A4").SparklineGroups.Group Location:=Range("A1")

Item

Renvoie un objet SparklineGroup à partir d’une collection. En lecture seule.

Item (Index)

Index: Spécifie la position d’un élément de la collection.

Dim sprlngItem As SparklineGroup
Set sprlngItem = ActiveCell.SparklineGroups(Index:=1)

Ungroup

Dissocie les graphiques sparkline du groupe de graphiques sparkline sélectionné.

Range("A1:A4").SparklineGroups.Ungroup