Clase PivotLine (Excel VBA)

Un objeto PivotLine es una línea de filas o columnas de una tabla dinámica de Excel.

Set

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

Dim pvtln as PivotLine
Set pvtln = ActiveCell.PivotCell.PivotColumnLine

Los siguientes procedimientos se pueden usar para establecer variables de clase PivotLine : PivotCell.PivotColumnLine, PivotCell.PivotRowLine, PivotField.AutoSortPivotLine, PivotLines.Item y PivotAxis.PivotLines

For Each

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

Dim pvtln As PivotLine
For Each pvtln In ActiveCell.PivotLines
	
Next pvtln

LineType

Devuelve una constante XlPivotLineType que indica el tipo de PivotLine.

Valores posibles son xlPivotLineBlank - Línea en blanco después de cada grupo, xlPivotLineGrandTotal - Línea de total general, xlPivotLineRegular - Línea dinámica normal con elementos dinámicos, xlPivotLineSubtotal - Línea de subtotal.
Dim xplLineType As XlPivotLineType
xplLineType = ActiveCell.PivotCell.PivotColumnLine.LineType

Parent

Devuelve el objeto primario del objeto PivotLine especificado.

PivotLineCells

Devuelve una colección de objetos PivotCell en una línea dinámica.

Dim plcsPivotLineCells As PivotLineCells
Set plcsPivotLineCells = ActiveCell.PivotCell.PivotColumnLine.PivotLineCells

PivotLineCellsFull

Recupera todas las celdas PivotLine , incluidas las ocultas en forma compacta.

Dim plcsPivotLineCellsFull As PivotLineCells
Set plcsPivotLineCellsFull = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull

Position

Devuelve o establece la posición del objeto PivotLine.

Dim lngPosition As Long
lngPosition = ActiveCell.PivotCell.PivotColumnLine.Position

PivotLines.Count

Devuelve el número de elementos de la colección PivotLines .

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.PivotColumnAxis.PivotLines.Count

PivotLines.Item

Devuelve un elemento concreto del objeto de colección PivotLines por su posición en la colección.

Sintaxis : expression.Item (Index)

Index: Especifica la posición de un elemento de la colección.

Dim pvtlnItem As PivotLine
Set pvtlnItem = ActiveCell.PivotTable.PivotColumnAxis.PivotLines(Index:=1)

PivotLines.Parent

Devuelve el objeto primario del objeto PivotLines especificado.