PivotTable Property [Excel 2003 VBA Language Reference]

Returns a PivotTable object that represents the PivotTable report containing the upper-left corner of the specified range, or the PivotTable report associated with the PivotChart report.

expression.PivotTable

expression Required. An expression that returns one of the objects in the Applies To list.

Example

This example sets the current page for the PivotTable report on Sheet1 to the page named "Canada."

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
pvtTable.PivotFields("Country").CurrentPage = "Canada"

This example determines the PivotTable report associated with the Sales chart on the active worksheet, and then it sets the page named "Oregon" as the current page for the PivotTable report.

Set objPT = _
    ActiveSheet.Charts("Sales").PivotLayout.PivotTable
objPT.PivotFields("State").CurrentPageName = "Oregon"

Applies to | PivotCell Object | PivotLayout Object | Range Collection