excel - 将所有切片器连接到所有数据透视表

Question

每次制作仪表板时，我总是单击切片器并隐藏空数据值，并将它们连接到工作表上的所有数据透视表。我尝试使用以下 vba 代码自动执行此操作：

Sub sliceredits()
    Dim sc As SlicerCache
    Dim pvt As PivotTable
    
    For Each sc In ActiveWorkbook.SlicerCaches
        sc.CrossFilterType = xlSlicerCrossFilterHideButtonsWithNoData

        For Each pvt In ActiveSheet.PivotTables
            sc.PivotTables.AddPivotTable (ActiveSheet.PivotTables(pvt))
        Next pvt
    Next myCache

End Sub

并收到错误“无法获取 Worksheet 类的数据透视表属性”。任何帮助深表感谢！

标签： excelvbapivot-table