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