VBA将清除切片器筛选器

Question

我有一个数据透视表，一些宏和切片器。我的宏链接到对象，这些对象在单击时会通过各种条件过滤数据透视。我刚刚添加了一些切片器，但是现在我的宏无法正常工作，除非我不理会切片器。如何将代码添加到现有的宏中，这些代码也将清除切片器？这是代码示例：

Sub PartA()
    ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[Material Master].[Product Group].[Product Group]").VisibleItemsList = Array( _
        "[Material Master].[Product Group].&[PartA]")
End Sub