Power-Pivot-Slicer löschen

Question

kennt jemand eine gute Möglichkeit, die Slicer in einer Arbeitsmappe zu löschen. Ich habe ein Blatt mit vielen Slicern und ich hätte gerne einen einzigen Knopf, um sie zu löschen.

schrieb ich ein bisschen VBA es zu tun, aber es ist ein wenig langsam:

Sub ClearSlicers() 
    Dim cache As SlicerCache 

    For Each cache In ActiveWorkbook.SlicerCaches 
      cache.ClearManualFilter 
    Next cache 
End Sub 

nur gefragt, wenn Sie etwas ein wenig schlankeres haben?

Dank John

Answer 1

Dies wird alle Slicer in einem Blatt

Sub test() 

Dim pt As PivotTable 
Dim cache As Slicer 

For Each pt In ActiveSheet.PivotTables 
    For Each cache In pt.Slicers 
     cache.SlicerCache.ClearAllFilters 
    Next cache 
Next pt 

End Sub