Excel VBA: Wählen Sie alle Elemente aus jedem Slicer

Question

Ich versuche, alle Elemente aus jedem Slicer, die in der Arbeitsmappe vorhanden ist, auszuwählen.

Zur Zeit habe ich die folgende, jedoch ist dies eine „Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder diese Methode nicht unterstützt“ Herstellung auf der 6. Zeile, wo ich die Schleife durch i beginnen:

Dim sc As SlicerCache 
Dim sl As Slicer 
Dim i As Integer 
For Each sc In ActiveWorkbook.SlicerCaches 
    For Each sl In sc.Slicers 
     For i = 1 To sl.SlicerItems.Count 
      sl.SlicerItems(i).Selected = True 
     Next i 
    Next sl 
Next sc 

I brauche ich die i-Schleife in der Mitte, denn später möchte ich den gleichen Code verwenden, um nur Elemente auszuwählen, die in einem Array vorhanden sind.

Jede Hilfe sehr geschätzt, danke!

Answer 1

ändern, die For i = 1 to sc.SlicerItems.Count Linie und es sollte funktionieren (slicerItems ist eine Eigenschaft des SlicerCache und nicht das Slicer Objekt selbst