vba - Power Pivot スライサーのクリア

Question

ワークブックのスライサーをクリアする良い方法を知っている人はいますか? 多くのスライサーを含むシートがあり、それらをクリアするための 1 つのボタンが必要です。

私はそれを行うために少し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