PivotField.VisibleItems (Excel)
Retorna um objeto que representa um único item de tabela dinâmica visível um objeto PivotItem ou uma coleção de todos os itens visíveis (um objeto PivotItems ) no campo especificado. Somente leitura.
Para fontes de dados OLAP, essa propriedade é somente leitura e sempre retorna True. Não existem itens ocultos.
VisibleItems (Index)
Index: O número ou o nome de um item a ser retornado (pode ser uma matriz para especificar mais de um item).
Dim pvtiVisibleItems As PivotItem
Set pvtiVisibleItems = ActiveCell.PivotField.VisibleItems