Klasse Slicers (Excel VBA)

Eine Auflistung von Slicer -Objekten. Um eine Slicers -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

For Each

Hier ist ein Beispiel für die Verarbeitung der Slicers -Elemente in einer Sammlung

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

Add

Erstellt einen neuen datenschnitt und gibt ein Slicer -Objekt zurück.

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

Ein benanntes Argument

SlicerDestination (Worksheet) - Eine Zeichenfolge , die den Namen des Blatts angibt, oder ein Worksheet -Objekt, das das Blatt darstellt, in dem sich der resultierende Slicer befindet.

Optional arguments

Die folgenden Argumente sind optional

Level (Long,String) - Für OLAP-Datenquellen die Ordinalzahl oder der MDX-Name (Multidimensional Expression, mehrdimensionaler Ausdruck) der Ebene, auf der die Datenschnitterstellung basiert.

Name (String) - Der Name des Datenschnitts.

Caption (String) - Die Beschriftung des Datenschnitts.

Top (Points) - Die anfängliche vertikale Position des Slicers in Punktrelativ zur oberen linken Ecke der Zelle a1 in einem Arbeitsblatt.

Left - Die horizontale Ausgangsposition des Datenschnitts relativ zur linken oberen Ecke von Zelle A1 einer Arbeitsmappe in Punkten

Width - Die Ausgangsbreite des Datenschnitt-Steuerelements in Punkten

Height (Long) - Die Ausgangshöhe des Datenschnitt-Steuerelements in Punkten.

Count

Gibt die Anzahl der Objekte in der Auflistung zurück.

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

Item

Gibt ein Slicer -Objekt aus der Auflistung zurück.

Item (Index)

Index: Der Name oder die Indexnummer des Slicer-Objekts.

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