Classe Slicers (Excel VBA)

Collection d'objets Slicer .

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

Dim slcs as Slicers
Set slcs = ActiveCell.PivotTable.Slicers

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Slicers : ListObject.Slicers, PivotTable.Slicers et SlicerCache.Slicers.

For Each

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

Dim slc As Slicer
For Each slc In Application.Slicers
	
Next slc

Add

Crée un nouveau Slicer et renvoie un objet Slicer.

Add (SlicerDestination, Level, Name, Caption, Top, Left, Width, Height)

Sub CreateNewSlicer() 
 ActiveWorkbook.SlicerCaches.Add("Adventure Works", _ 
 "[Customer].[Customer Geography]").Slicers.Add ActiveSheet, _ 
 "[Customer].[Customer Geography].[Country]", "Country 1", "Country", _ 
 252, 522, 144, 216) 
End Sub

Arguments

Un argument nommé

SlicerDestination (Worksheet) - Valeur de type String qui spécifie le nom de la feuille ou objet Worksheet qui représente la feuille, dans laquelle le Slicer résultant sera placé. La feuille de destination doit se trouver dans le classeur qui contient l’objet Slicers spécifié par expression.

Optional arguments

Les arguments suivants sont facultatifs

Level (Long,String) - Pour les sources de données OLAP, ordinale ou nom MDX (Multidimensional Expression) du niveau de création du slicer. Aucune prise en charge pour les sources de données non OLAP.

Name (String) - Nom du slicer. Si aucun nom n’est spécifié, Excel en génère automatiquement un. Il doit être appliqué à tous les slicers d’un classeur.

Caption (String) - Légende du slicer.

Top (Points) - Position verticale initiale du segment, en points, par rapport au coin supérieur gauche de la cellule a1 d’une feuille de calcul.

Left - Position horizontale initiale du slicer, en points, par rapport à l’angle supérieur gauche de la cellule A1 dans un classeur

Width - Largeur initiale, en points, du contrôle de slicer

Height (Long) - Hauteur initiale, en points, du contrôle de slicer.

Count

Renvoie le nombre d'objets dans la collection.

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.Slicers.Count

Item

Renvoie un objet Slicer de la collection. En lecture seule.

Item (Index)

Index: Nom ou numéro d’index de l’objet Slicer.

Dim slcItem As Slicer
Set slcItem = ActiveCell.PivotTable.Slicers(Index:=1)