Classe PivotItems (Excel VBA)

Uma coleção de todos os objetos PivotItem em um campo de tabela dinâmica. Para usar uma variável de classe PivotItems, ela primeiro precisa ser instanciada por exemplo

Dim pis as PivotItems
Set pis = ActiveCell.PivotField.PivotItems()

Add

Cria um novo item de tabela dinâmica.

Add (Name)

Name: O nome do novo item de tabela dinâmica.

Worksheets(1).PivotTables(1).PivotItems("Year").Add "1998"

Count

Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.PivotField.PivotItems.Count

Item

Retorna um único objeto de uma coleção.

O nome de texto do objeto é o valor das propriedades Name e Value .

Item (Index)

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

Dim pvti As PivotItem
Set pvti = ActiveCell.PivotField.PivotItems(Index:=1)