PivotField.AutoShowRange (Excel)

Devuelve la constante xlTop si los elementos superiores se muestran automáticamente en el campo de la tabla dinámica especificado; Devuelve xlBottom si se muestran los elementos inferiores.

Dim lngAutoShowRange As Long
lngAutoShowRange = ActiveCell.PivotField.AutoShowRange