Collapse All - Pivot Table Interop

Acredito que você tenha que ir linha a linha:

https://social.msdn.microsoft.com/Forums/office/en-US/e1fca609-875e-433c-a354-1b251ebe58c5/expand-entire-fieldshow-detail-programmatically-in-excel-pivot-table?forum=exceldev

Quando vou no PivoItem de cada campo recebo essa msg de erro:

"Não é possível definir a propriedade ShowDetail da classe PivotItem"

:(

PivotItem tem uma propriedade chamada ShowDetail?

No intellisense é mostrado o ShowDetail como uma propriedade tanto do PivotField quanto do PivotItem...

Se eu uso o ShowDetail uma única vez no primeiro item não dá erro (mas também não funciona), porém se eu uso dentro do laço de repetição, dá o erro: "Não é possível definir a propriedade ShowDetail da classe PivotItem".

Não dá erro e não funciona:

Dim pT As PivotTable = planilhaResumo.PivotTables(1)
pT.PivotFields(1).PivotItems(1).ShowDetail = False

Dá erro e não funciona:

Dim pT As PivotTable = planilhaResumo.PivotTables(1)
For Each field As PivotField In pT.PivotFields
For Each item As PivotItem In field.PivotItems
item.ShowDetail = False
Next
Next

Verifique se todos os itens estão definidos

Desculpe minha ignorância no assunto, mas como faço isso?

Dá uma olhada se todos os PivotItems estão instanciados e preenchidos.

Faz um for e vai dando um print neles, ou então poe um breakpoint