我记录了一个宏，看看是否有一种方法，在我插入3个切片器后，为每个切片器选择报告连接，以选择透视表，而不必右键单击并为每个切片器选择报告连接。
这是来自记录器的以下宏代码：

Sub Macro3()
'
' Macro3 Macro
'

'slicer 1

    ActiveSheet.Shapes.Range(Array("Team Member Name")).Select
    ActiveWorkbook.SlicerCaches("Slicer_Team_Member_Name").PivotTables. _
    AddPivotTable (ActiveSheet.PivotTables("PivotTable2"))
    'slicer 2
    ActiveSheet.Shapes.Range(Array("Opportunity Owner Name")).Select
    ActiveWorkbook.SlicerCaches("Slicer_Opportunity_Owner_Name").PivotTables. _
    AddPivotTable (ActiveSheet.PivotTables("PivotTable2"))
    'slicer 3
    ActiveSheet.Shapes.Range(Array("Account Record Type")).Select
    ActiveWorkbook.SlicerCaches("Slicer_Account_Record_Type").PivotTables. _
    AddPivotTable (ActiveSheet.PivotTables("PivotTable2"))

End Sub

当我运行这段代码时，它给出了以下错误
运行时错误“1004”：无法获取Workclass工作表的数据透视表属性
任何提供的帮助将是伟大的，并一直在寻找最后几个小时，什么也没有。一如既往的感谢。