Очистители для выравнивания мощности

Question

Кто-нибудь знает, как можно очистить слайсеры в книге. У меня есть лист со многими slicers, и я хотел бы иметь одну кнопку, чтобы очистить их.

я написал немного 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