PivotLayout Object

Represents the placement of fields in a PivotChart report.

Using the PivotLayout Object

Use the PivotLayout property to return a PivotLayout object. The following example creates a list of PivotTable field names used in the first PivotChart report.

Sub ListFieldNames

   Dim objNewSheet As Worksheet 
   Dim intRow As Integer 
   Dim objPF As PivotField

   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
   
End Sub