Using Classic PivotTable Layout as the Default

Nancy creates a lot of PivotTables and likes the old layout better than the default set up in Excel 2010. Every time she creates a PivotTable she has to go to Options | Display | Classic PivotTable Layout. Nancy wonders if there is a way she can make the classic display the default.

There is no way to set this default, but it is possible to make the process a bit less painful. I created a PivotTable and left it empty, with nothing defined in the various sections of the PivotTable. With the PivotTable sheet visible, I turned on the macro recorder and recorded just the steps that Nancy mentioned, above. Here’s what was recorded:

Sub Macro1()
'
' Macro1 Macro
'

'
    With ActiveSheet.PivotTables("PivotTable1")
        .InGridDropZones = True
        .RowAxisLayout xlTabularRow
    End With
End Sub

As you can see, there isn’t much (programmatically) to changing back to classic layout-all you need to do is issue two statements that affect the PivotTable. This macro can be improved just a bit, however, by making it more “universal.”

Sub PivotTableClassic()
    Dim pt As PivotTable

    For Each pt In ActiveSheet.PivotTables
        pt.InGridDropZones = True
        pt.RowAxisLayout xlTabularRow
    Next pt
End Sub

This version of the macro steps through each of the PivotTables on the current worksheet (if any) and applies those two statements that set them to classic layout.

The best idea we’ve been able to come up with is to assign this macro to the Quick Access Toolbar or to a shortcut key. Immediately after creating the macro, you can click the QAT button or press the shortcut key and Excel makes all the PivotTables on the sheet classic.