Clase SlicerPivotTables (Excel VBA)

La clase SlicerPivotTables representa información sobre la colección de tablas dinámicas asociada con el objeto SlicerCache especificado. Para usar una variable de clase SlicerPivotTables, primero debe ser instanciado, por ejemplo

Dim spts as SlicerPivotTables
Set spts = ActiveWorkbook.SlicerCaches(1).PivotTables

AddPivotTable

Agrega una referencia a una tabla dinámica en la colección SlicerPivotTables.

Cuando se agrega una tabla dinámica a la colección SlicerPivotTables, puede filtrarse por su objeto SlicerCache primario y las segmentaciones de datos asociadas.

AddPivotTable (PivotTable)

PivotTable: Objeto PivotTable que representa la tabla dinámica que se va a agregar.

Dim pvts As SlicerPivotTables 
Set pvts = ActiveWorkbook.SlicerCaches("Slicer_Customer").PivotTables 
pvts.AddPivotTable(ActiveSheet.PivotTables("PivotTable1"))

Count

Devuelve el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveWorkbook.SlicerCaches(1).PivotTables.Count

Item

Devuelve un solo objeto PivotTable de la colección.

Item (Index)

Index: Nombre o número de índice del objeto.

Dim pvtItem As PivotTable
Set pvtItem = ActiveWorkbook.SlicerCaches(1).PivotTables(Index:=1)

RemovePivotTable

Quita una referencia a una tabla dinámica de la colección SlicerPivotTables.

Cuando se quita una tabla dinámica de la colección SlicerPivotTables , ya no se filtra por su objeto SlicerCache primario y las segmentaciones de los que está asociado.

RemovePivotTable (PivotTable)

PivotTable: Objeto PivotTable que representa la tabla dinámica que se va a quitar o el nombre o el índice de la tabla dinámica de la colección.

Dim pvts As SlicerPivotTables 
Set pvts = ActiveWorkbook.SlicerCaches("Slicer_Customer").PivotTables 
pvts.RemovePivotTable("PivotTable1")