excel - Excel vba: スライサーを複数のピボット テーブルに接続するマクロを作成する

Question

3 つのピボット テーブルのデータ ソースを変更するマクロを作成しようとしています。次に、既にシート上にある 1 つのスライサーが 3 つのピボット テーブルすべてに接続されます。ピボット テーブルはすべて同じ場所からデータを取得します。

これを試してみると、スライサーをピボット テーブル 2 と 3 に接続する手順でエラーが発生します。各ピボット テーブルのデータ ソースを変更する手順だけでマクロを実行すると、スライサーには 1 つしかないことに気付きました。 3 の代わりに「レポート接続」ボックスのオプション。

ここに私が持っているものがあります:

Sheets("Sales").Select
ActiveSheet.PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Table3", Version _
:=xlPivotTableVersion15)

ActiveSheet.PivotTables("PivotTable2").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Table3", Version _
:=xlPivotTableVersion15)

ActiveSheet.PivotTables("PivotTable3").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Table3", Version _
:=xlPivotTableVersion15)


ActiveWorkbook.SlicerCaches("Slicer_Year").PivotTables.AddPivotTable ( _
ActiveSheet.PivotTables("PivotTable1"))
ActiveWorkbook.SlicerCaches("Slicer_Year").PivotTables.AddPivotTable ( _
ActiveSheet.PivotTables("PivotTable2"))
ActiveWorkbook.SlicerCaches("Slicer_Year").PivotTables.AddPivotTable ( _
ActiveSheet.PivotTables("PivotTable3"))