電源ピボットスライサーをクリアする

Question

誰でもブック内のスライサーをクリアする良い方法を知っていますか？ 私はスライサーがたくさんあるシートを持っています。私はそれらをクリアするために一つのボタンを持っていたいと思います。

私はそれをを行うにはVBAのビットを書きましたが、それは少し遅いです：

Sub ClearSlicers() 
    Dim cache As SlicerCache 

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

あなたが何か少しスリッカーを持っている場合だけだろうか？

おかげ ジョン

Answer 1

これは、彼らがPowerPivotのスライサーは、テーブルを回転されないように、コードが機能しないこと

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