Classe SlicerPivotTables (Excel VBA)

A classe SlicerPivotTables representa informações sobre a coleção de tabelas dinâmicas associadas ao objeto SlicerCache especificado. Para usar uma variável de classe SlicerPivotTables, ela primeiro precisa ser instanciada por exemplo

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

AddPivotTable

Adiciona à coleção SlicerPivotTables uma referência a uma Tabela Dinâmica.

Quando uma Tabela Dinâmica é adicionada à coleção SlicerPivotTables, ela pode ser filtrada pelo SlicerCache pai e pelas segmentações de dados associadas a ela.

AddPivotTable (PivotTable)

PivotTable: Um objeto PivotTable que representa a tabela dinâmica a ser adicionada.

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

Count

Retorna o número de objetos na coleção.

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

Item

Retorna um único objeto PivotTable da coleção.

Item (Index)

Index: O nome ou número de índice do objeto.

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

RemovePivotTable

Remove uma referência feita a uma Tabela Dinâmica da coleção SlicerPivotTables.

Quando uma tabela dinâmica é removida da coleção SlicerPivotTables , ela não é mais filtrada pelo objeto SlicerCache pai e pelas segmentações associadas a ela.

RemovePivotTable (PivotTable)

PivotTable: Um objeto PivotTable que representa a tabela dinâmica a ser removida ou o nome ou índice da tabela dinâmica na coleção.

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