Represents the placement of fields in a PivotChart report.
Using the PivotLayout Object
Use the PivotLayout property to return the PivotLayout object. The following example creates a list of PivotTable field names used in the first PivotChart report.
Set objNewSheet = Worksheets.Add
intRow = 1
For Each objPF In _
Charts("Chart1").PivotLayout.PivotFields
objNewSheet.Cells(intRow, 1).Value = objPF.Caption
intRow = intRow + 1
Next objPF