Draai-grafieken koppelen

[stijnkuijpers]

In een ander bericht ben ik erachter hoe ik filters van meerdere draaitabellen aan elkaar kan koppelen (zie onder). Nu wil ik ook graag de filterkeuze voor bijbehorende draaigrafieken aan elkaar koppelen. Kan iemand me daarbij helpen? In de bijlage staat een Excel met een voorbeeld.

Alvast bedankt!

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.EnableEvents = False
    Dim Pt As PivotTable, choice As String
    For Each Pt In ActiveSheet.PivotTables
        If Pt.Name <> Target.Name Then
             choice = Target.PivotFields("KIES").CurrentPage
             Pt.PivotFields("KIES").CurrentPage = choice
        End If
    Next Pt
Application.EnableEvents = True
End Sub