VBA Slicer, связанный с сводными диаграммами с использованием модели данных (без сводной таблицы)

Question

Я пытаюсь контролировать / обновить несколько сводных диаграмм (в режиме модели данных) вместе.

Сначала я создал несколько диаграмм из «Таблицы 1» (Модель данных без сводной таблицы) с помощью среза и связал эти диаграммы вместе.Обратите внимание, что мой код работает нормально при создании диаграмм и среза с помощью сводной таблицы, но он не работает, когда я добавил свои данные в «Модель данных» во время создания диаграмм.

 Dim n As Long

With ActiveWorkbook.SlicerCaches("Slicer_Country")
    n = .SlicerItems.Count
    For i = 2 To n - 1
        .SlicerItems(i).Selected = False
    Next i
    .SlicerItems(n).Selected = True
End With

Мой код работает с сводной таблицейтаблица не работает при добавлении в режим «Модель данных» и ошибка, как показано ниже;

 Run-time error '1004'
 Application-defined or object-defined error