Excel - циклы VBA для выбора слайсера, работающие на обычных поворотах, но не работающие на мощных поворотах

Question

Все - это в RE: Excel VBA.Я ищу циклический выбор слайсера и распечатываю PDF.мой код работает для стандартных сводок, но он не работает при использовании его в PowerPivot, что я и ищу.

Может кто-нибудь, пожалуйста, пролить свет на то, как повернуть ниже, чтобы он работал в PowerPivot?(срез из данных источника питания)

Option Explicit

Sub ExportPDFs()

Dim sI As SlicerItem, sI2 As SlicerItem, sc As SlicerCache
Dim fname$

Set sc = ActiveWorkbook.SlicerCaches("Slicer_Date")

With sc

    For Each sI In sc.SlicerItems
        If sI.HasData = True Then

        sc.ClearManualFilter

        For Each sI2 In sc.SlicerItems
            If sI.Name = sI2.Name Then sI2.Selected = True Else: sI2.Selected = False
        Next

        Debug.Print sI.Name
        fname = sI.Caption & " " & Format(Date, "MM-DD-YYYY") & " " & "Report"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fname, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End If
    Next

    ActiveWorkbook.SlicerCaches("Slicer_Year").ClearManualFilter
    MsgBox "Reports Saved"
End With
End Sub