PivotLayout Object - Microsoft Office Excel

Example

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.

Visual Basic for Applications

Visual Basic for Applications
`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`

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

Pivot Layout Object PivotLayout PivotLayout Object

See also: