VisualTotals Property

expression.VisualTotals

expression    Required. An expression that returns a PivotTable object.

Remarks

In non-OLAP PivotTables, if you hide an item, the total is recomputed to reflect only the items that remain visible in the PivotTable. In an OLAP PivotTable, the total is computed on the server and is therefore unaffected by whether any items are hidden in the PivotTable view. However, if the VisualTotals property is set to False for an OLAP PivotTable, then the results of the OLAP PivotTable will match those of the non-OLAP PivotTable.

For OLAP PivotTables, a VisualTotals property setting of True (default) works the same way as described for non-OLAP PivotTables.

The VisualTotals property returns True for all new PivotTables. However, if you open a workbook in the current version of Microsoft Excel and the PivotTable had been created in a previous version of Excel, then the VisualTotals property will return False.

Note  All previously created PivotTables will have the VisualTotals property set to False by default, unless the user changes it, but for all newly created ones the VisualTotals property is set to True.

Example

This example determines if the ability to re-total after an item has been hidden from view is available for OLAP PivotTables and notifies the user. The example assumes a PivotTable exists on the active worksheet.

Sub CheckVisualTotals()

    Dim pvtTable As PivotTable

    Set pvtTable = ActiveSheet.PivotTables(1)

    ' Determine if visual totals is enabled for OLAP PivotTables.
    If pvtTable.VisualTotals = True Then
        MsgBox "Ability enabled to re-total after an item " & _
            "has been hidden from view."
    Else
        MsgBox "Unable to re-total items not hidden from view."
    End If

End Sub