Clearing Power Pivot Slicers

Question

沒有人知道清除工作簿中切片器的好方法。 我有一個很多切片機的工作表，我想要一個按鈕來清除它們。

我寫了一點VBA的去做但它是一個有點慢：

Sub ClearSlicers() 
    Dim cache As SlicerCache 

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

，如果你有任何一個小滑頭只是想知道？

感謝 約翰

Answer 1

這將清除紙張

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