Clase PivotItem (Excel VBA)

La clase PivotItem representa un elemento de un campo de tabla dinámica.

Los principales procedimientos de la clase PivotItem son CalculatedItems.Add, Delete y PivotItems.Add

Set

Para usar una variable de clase PivotItem, primero debe ser instanciado, por ejemplo

Dim pvti as PivotItem
Set pvti = ActiveCell.PivotItem

Los siguientes procedimientos se pueden usar para establecer variables de clase PivotItem : PivotField.CalculatedItems, CalculatedItems.Item, CalculatedItems.Add, PivotCell.PivotItem, PivotField.ChildItems, PivotField.CurrentPage, PivotField.HiddenItems, PivotField.ParentItems, PivotField.VisibleItems, ChildItems, ParentItem, PivotItemList.Item, PivotItems.Item, Range.PivotItem, PivotCell.ColumnItems, PivotCell.RowItems, PivotField.ChildItems, PivotField.HiddenItems, PivotField.ParentItems, PivotField.PivotItems, PivotField.VisibleItems y ChildItems

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos PivotItem en una colección.

Dim pvtiCalculatedItem As PivotItem
For Each pvtiCalculatedItem In Application.CalculatedItems()
	
Next pvtiCalculatedItem

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

Add with its procedures CalculatedItems.Add y PivotItems.Add
Formula with its procedures Formula y StandardFormula
Name with its procedures SourceName y SourceNameStandard

Métodos

Los principales métodos de la clase PivotItem son

Delete - Elimina el objeto.

ActiveCell.PivotItem.Delete

Otros Métodos

CalculatedItems.Item - Devuelve un solo objeto de una colección.

DrillTo - El método drillto permite profundizar hasta un campo dinámico especificado desde un PivotItem.

PivotItemList.Item - Devuelve un solo objeto de una colección.

PivotItems.Item - Devuelve un solo objeto de una colección.

Propiedades

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

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

CalculatedItems.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveCell.PivotField.CalculatedItems.Parent

Caption Devuelve un valor de tipo String que representa el texto del rótulo del elemento dinámico.

ActiveCell.PivotItem.Caption =

ChildItems Devuelve un objeto que representa un solo elemento de tabla dinámica (un objeto PivotItem ) o una colección de todos los elementos (un objeto PivotItems ) que están agrupados como secundarios en el campo especificado o secundarios del elemento especificado.

Dim pvtiChildItems As PivotItem
Set pvtiChildItems = ActiveCell.PivotItem.ChildItems

DataRange Devuelve un objeto Range tal como se muestra en la siguiente tabla.

Dim rngDataRange As Range
Set rngDataRange = ActiveCell.PivotItem.DataRange

DrilledDown True si la marca del campo de tabla dinámica especificado o del elemento de tabla dinámica se establece en "drilled" (expandido o visible).

ActiveCell.PivotItem.DrilledDown = True

IsCalculated Es True si el elemento de tabla dinámica es un campo o un elemento calculado.

Dim booIsCalculated As Boolean
booIsCalculated = ActiveCell.PivotItem.IsCalculated

LabelRange Devuelve un objeto Range que representa todas las celdas del informe de tabla dinámica que contienen el elemento.

Dim rngLabelRange As Range
Set rngLabelRange = ActiveCell.PivotItem.LabelRange

Name Devuelve o establece un valor de tipo String que representa el nombre del objeto.

ActiveCell.PivotItem.Name =

Parent Devuelve el objeto primario del objeto especificado.

Dim pvtfParent As PivotField
Set pvtfParent = ActiveCell.PivotItem.Parent

ParentItem Devuelve un objeto PivotItem que representa el elemento primario de la tabla dinámica en el objeto PivotField primario (el campo debe estar agrupado para que tenga un elemento primario).

Dim pvtiParentItem As PivotItem
Set pvtiParentItem = ActiveCell.PivotItem.ParentItem

ParentShowDetail Es True si el elemento especificado se muestra porque uno de sus primarios muestra los detalles.

Dim booParentShowDetail As Boolean
booParentShowDetail = ActiveCell.PivotItem.ParentShowDetail

Position Devuelve o establece un valor de tipo Long que representa la posición del elemento en su campo si se está mostrando en ese momento.

ActiveCell.PivotItem.Position =

RecordCount Devuelve el número de registros de la memoria caché de tabla dinámica o el número de registros de caché que contienen el elemento especificado.

Dim lngRecordCount As Long
lngRecordCount = ActiveCell.PivotItem.RecordCount

ShowDetail Es True si el esquema se expande en el rango especificado (para que la información detallada de la columna o la fila esté visible).

ActiveCell.PivotItem.ShowDetail = True

Value Devuelve o establece un valor de tipo String que representa el nombre del elemento de la tabla dinámica especificado.

ActiveCell.PivotItem.Value =

Visible Devuelve o establece un valor Boolean que determina si el objeto es visible.

ActiveCell.PivotItem.Visible = True

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

Dim lngCount As Long
lngCount = ActiveCell.PivotCell.RowItems.Count

PivotItemList.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveCell.PivotCell.RowItems.Parent

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

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

PivotItems.Parent Devuelve el objeto primario del objeto especificado.

Dim pvtfParent As PivotField
Set pvtfParent = ActiveCell.PivotField.PivotItems.Parent