Tabela Dinâmica EPPlus - Recolher campo inteiro

Alguém sabe como fazer isso?

Estou usando o EPPlus no .Net e criei uma tabela dinâmica com dois campos de linha e um campo de dados de resumo:

Dim Pivot As OfficeOpenXml.Table.PivotTable.ExcelPivotTable
Pivot = wksPivot.PivotTables.Add(wksPivot.Cells("A1"), Datarange, "pName")

Pivot.RowFields.Add(Pivot.Fields("Fld1")).Sort = Table.PivotTable.eSortType.Ascending
Pivot.RowFields.Add(Pivot.Fields("Fld2")).Sort = Table.PivotTable.eSortType.Ascending

Dim dtaFld As OfficeOpenXml.Table.PivotTable.ExcelPivotTableDataField
dtaFld = Pivot.DataFields.Add(Pivot.Fields("XYZ"))
dtaFld.Function = Table.PivotTable.DataFieldFunctions.Sum

Tudo funciona muito bem, mas quero que a Tabela Dinâmica comece desmoronada quando o usuário abrir a pasta de trabalho (No excel, ao criar a tabela dinâmica, você pode clicar com o botão direito do mouse no elemento de dados e selecionar "Expandir / Recolher" ">" Colapso do campo inteiro "

Hot posso fazer isso via código ?? (E estou disposto a usar o OpenXML direto se o EPPlus ainda não suportar isso ...)

ALÉM DISSO, existe uma maneira de excluir os dados brutos da pasta de trabalho para que a tabela dinâmica ainda funcione? Eu tentei e quando eu abro a pasta de trabalho, minha tabela dinâmica está em branco? - Minha lógica atual me levou aessa questão... Alguma ideia??

(Eu sei que eu escrevi esta pergunta no VB. Mas eu adicionei oC# & VB tags para esta pergunta - Estou confortável com o código em qualquer idioma - Obrigado !!)

questionAnswers(2)

yourAnswerToTheQuestion