In diesem Beispiel bleibt die Formatierung des ersten PivotTable-Berichts im ersten Tabellenblatt erhalten.
Worksheets(1).PivotTables("Pivot1").PreserveFormatting = True
In diesem Beispiel wird gezeigt, wie die Einstellung von PreserveFormatting auf False dazu führt, dass AutoFormat auf das xlRangeAutoFormatNone-Format und nicht auf das angegebene xlRangeAutoFormatColor1-Format festgelegt wird.
With Workbooks(1).Worksheets(1).QueryTables(1) .Range.AutoFormat = xlRangeAutoFormatColor1 .PreserveFormatting = False .Refresh
End With