PivotField.AutoShowRange (Excel)
Retorna a constante xlTop se os principais itens são mostrados automaticamente no campo de tabela dinâmica especificado; retorna xlBottom se os itens inferiores são mostrados. Long somente leitura.
Dim lngAutoShowRange As Long
lngAutoShowRange = ActiveCell.PivotField.AutoShowRange