Propriedade PivotTable.CubeFields (Excel)
Retorna a coleção CubeFields . Cada objeto CubeField contém as propriedades do elemento de campo cubo. Somente leitura.
Sintaxe
expressão. CubeFields
Expressão Uma variável que representa um objeto de Tabela Dinâmica .
Exemplo
Este exemplo cria uma lista de nomes de campo de cubo para os campos de dados no primeiro relatório de tabela dinâmica baseado em OLAP em Sheet1.
Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objCubeFld In Worksheets("Sheet1").PivotTables(1).CubeFields
If objCubeFld.Orientation = xlDataField Then
objNewSheet.Cells(intRow, 1).Value = objCubeFld.Name
intRow = intRow + 1
End If
Next objCubeFld
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.