expression.DisplayImmediateItems
expression Required. An expression that returns a PivotTable object.
Example
This example determines how the PivotTable was created and notifies the user. It assumes a PivotTable exists on the active worksheet.
Sub CheckItemsDisplayed()
Dim pvtTable As PivotTable
Set pvtTable = ActiveSheet.PivotTables(1)
' Determine how the PivotTable was created.
If pvtTable.DisplayImmediateItems = True Then
MsgBox "Fields have been added to the row or column areas for the PivotTable report."
Else
MsgBox "The PivotTable was created by using object-model calls."
End If
End Sub