Classe Slicer (Excel VBA)

La classe Slicer représente un slicer dans un classeur.

Les procédures principales de la classe Slicer sont Copy, Delete et Slicers.Add

Set

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

Dim slc as Slicer
Set slc = ActiveWorkbook.ActiveSlicer

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

For Each

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

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

Méthodes

Les méthodes principales de la classe Slicer sont

Copy - Copie le slicer spécifié dans le Presse-papiers.

ActiveWorkbook.ActiveSlicer.Copy

Delete - Supprime le Slicer et le supprime de la collection Slicers associée.

ActiveWorkbook.ActiveSlicer.Delete

Slicers.Add - Crée un nouveau Slicer et renvoie un objet Slicer.

Dim strSlicerDestination As String: strSlicerDestination = 
Dim slc As Slicer
Set slc = ActiveCell.PivotTable.Slicers.Add(SlicerDestination:=strSlicerDestination)

Autre Méthodes

Cut - Coupe le slicer spécifié et le copie dans le Presse-papiers.

Propriétés

ActiveItem Renvoie un objet SlicerItem qui représente le bouton de segment qui est actuellement sélectionné pour le Slicer spécifié. En lecture seule.

Dim slciteActiveItem As SlicerItem
Set slciteActiveItem = ActiveWorkbook.ActiveSlicer.ActiveItem

Caption Renvoie ou définit la légende du slicer spécifié. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.Caption =

ColumnWidth Cette propriété renvoie ou définit la largeur, exprimée en points, de chaque colonne dans le Slicer. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.ColumnWidth =

DisableMoveResizeUI Renvoie ou définit une valeur indiquant si le slicer spécifié peut être déplacé ou redimensionné à l’aide de l’interface utilisateur. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.DisableMoveResizeUI = True

DisplayHeader Cette propriété renvoie ou définit si l’en-tête qui affiche la propriété de légende du Slicer est visible. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.DisplayHeader = True

Height Cette propriété renvoie ou définit la hauteur du segment spécifié, en points. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.Height =

Left Cette propriété renvoie ou définit la position horizontale du segment spécifié, en points, par rapport au coin supérieur gauche de la cellule a1 d'une feuille de calcul. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.Left =

Locked Renvoie ou définit une valeur indiquant si le slicer spécifié peut être modifié lorsque la feuille qui le contient est protégée. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.Locked = True

Name Cette propriété renvoie ou définit le nom du Slicer spécifié. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.Name =

NumberOfColumns Renvoie ou définit le nombre de colonnes dans le slicer spécifié. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.NumberOfColumns =

Parent Renvoie l’objet Worksheet qui représente la feuille contenant le Slicer. En lecture seule.

Dim wsParent As Worksheet
Set wsParent = ActiveWorkbook.ActiveSlicer.Parent

RowHeight Cette propriété renvoie ou définit la hauteur, exprimée en points, de chaque ligne dans le Slicer spécifié. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.RowHeight =

Shape Renvoie l’objet Shape associé au Slicer spécifié. En lecture seule.

Dim shpShape As Shape
Set shpShape = ActiveWorkbook.ActiveSlicer.Shape

SlicerCache Renvoie l’objet SlicerCache associé au Slicer. En lecture seule.

Dim slcSlicerCache As SlicerCache
Set slcSlicerCache = ActiveWorkbook.ActiveSlicer.SlicerCache

SlicerCacheLevel Renvoie l’objet SlicerCacheLevel associé au Slicer. En lecture seule.

Dim slcclSlicerCacheLevel As SlicerCacheLevel
Set slcclSlicerCacheLevel = ActiveWorkbook.ActiveSlicer.SlicerCacheLevel

SlicerCacheType Renvoie le type du cache de segment: Slicer (xlSlicer) ou chronologie (xlTimeline). En lecture seule XlSlicerCacheType.

Dim xscSlicerCacheType As XlSlicerCacheType
xscSlicerCacheType = ActiveWorkbook.ActiveSlicer.SlicerCacheType

Style Renvoie ou définit le style appliqué actuellement au slicer spécifié. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.Style =

TimelineViewState État spécifique de la chronologie du Slicer. En lecture seule timelineviewstate,.

Dim tvsTimelineViewState As TimelineViewState
Set tvsTimelineViewState = ActiveWorkbook.ActiveSlicer.TimelineViewState

Top Cette propriété renvoie ou définit la position verticale du segment spécifié, en points, par rapport au coin supérieur gauche de la cellule a1 d’une feuille de calcul. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.Top =

Width Cette propriété renvoie ou définit la largeur du segment spécifié, en points. Lecture-écriture.

ActiveWorkbook.ActiveSlicer.Width =

Slicers.Count Renvoie le nombre d'objets dans la collection.

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

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

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

Slicers.Parent Renvoie l’objet SlicerCache parent de la collection Slicers spécifiée. En lecture seule.

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.Slicers.Parent