PivotField.CubeField Property (Excel)
Returns the CubeField object from which the specified PivotTable field is descended. Read-only.
Syntax
expression .CubeField
expression A variable that represents a PivotField object.
Example
This example creates a list of the cube field names for all the hierarchy fields in the first Online Analytical Processing (OLAP) -based PivotTable report on the first worksheet. This example assumes a PivotTable report exists in the first worksheet.
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