VBA Slicer使用数据模型链接到数据透视图（无数据透视表）

Question

我正在尝试一起控制/更新几个数据透视图（在“数据模型”模式下）。

首先，我使用切片器从“ Table1”（无透视表的数据模型）中创建了几个图表，并将这些图表链接在一起。请注意，当我使用数据透视表创建Charts＆slicer时，我的代码工作正常，但是当我在创建Charts期间将数据添加到“数据模型”中时，该代码不起作用。

def reverse_sign_of_nos_in_a_list(list1) :
    """ This function reverses sign of numbers
        in a list and returns a list.
    """
    list2 = []
    for num in list1 :
        if num > 0 :
            list2.append(num * -1)
        elif num < 0 :
            list2.append(abs(num))
        else :
            list2.append(num)
    return list2

print (reverse_sign_of_nos_in_a_list([1,2,3,-1,-2,-3,0]))

我的代码适用于数据透视表，但在添加到“数据模型”模式下并出现以下错误时无法工作；

 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