Propriedade PivotField.CubeField (Excel)
Retorna o objeto CubeField do qual o campo de Tabela Dinâmica especificado é decrescido. Somente leitura.
Sintaxe
expressão. Cubefield
Expressão Uma variável que representa um objeto PivotField .
Exemplo
Este exemplo cria uma lista dos nomes de campo de cubo para todos os campos de hierarquia no primeiro relatório de Tabela Dinâmica baseada em OLAP (Processamento Analítico Online) na primeira planilha. Este exemplo pressupõe que exista um relatório de Tabela Dinâmica na primeira planilha.
Sub UseCubeField()
Dim objNewSheet As Worksheet
Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objPF in _
Worksheets(1).PivotTables(1).PivotFields
If objPF.CubeField.CubeFieldType = xlHierarchy Then
objNewSheet.Cells(intRow, 1).Value = objPF.Name
intRow = intRow + 1
End If
Next objPF
End Sub
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.