Clase PivotFields (Excel VBA)

Colección de todos los objetos PivotField de un informe de tabla dinámica. Para usar una variable de clase PivotFields, primero debe ser instanciado, por ejemplo

Dim pfs as PivotFields
Set pfs = ActiveCell.PivotTable.VisibleFields

Count

Devuelve un valor Long que representa el número de objetos de la colección.

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

Item

Devuelve un solo objeto de una colección.

El nombre de texto del objeto es el valor de las propiedades Name y Value .

Item (Index)

Index: Número de índice o nombre del objeto.

Dim pvtf As PivotField
Set pvtf = ActiveCell.PivotTable.VisibleFields(Index:=1)