VBA for Slicer Formatting

[Noofus]

I am trying to create a macro (button) to format all slicers to a certain style on the active worksheet. I have multiple worksheets that are nearly identical (copied from a master sheet), but the following code only works on the original sheet. How do I change the slicer name to apply to all, not a specific slicer?

ActiveSheet.Shapes.Range(Array("Scope")).SelectActiveSheet.Shapes.Range(Array("Scope", "BREAKOUT")).Select
ActiveWorkbook.SlicerCaches("Slicer_Scope").Slicers("Scope").Style = _
        "SlicerStyleDark1"
ActiveWorkbook.SlicerCaches("Slicer_BREAKOUT").Slicers("BREAKOUT").Style = _
        "SlicerStyleDark1"

 

[Norie]

You could try looping through all the slicers in the workbook, something like this.

Dim slc As SlicerCache
Dim sl As Slicer
Dim I As Long

    For Each slc In ActiveWorkbook.SlicerCaches
        For I = 1 To slc.Slicers.Count
            Set sl = slc.Slicers(I)
            ' code to format slicer
        Next I
    Next slc

 

[Noofus]

Thanks for responding. I tried this, adding the slicer style code. I don't get any errors, but nothing changes either. What am I missing?

Sub BlueSheet()
Dim slc As SlicerCache
Dim sl As Slicer
Dim I As Long


    For Each slc In ActiveWorkbook.SlicerCaches
        For I = 1 To slc.Slicers.Count
            Set sl = slc.Slicers(I)
            Style = "SlicerStyleDark4"
        Next I
    Next slc
End Sub

 

[Norie]

This is how you would apply the style to the slicer.

sl.Style = "SlicerStyleDark4"

 

[Noofus]

This is how you would apply the style to the slicer.

sl.Style = "SlicerStyleDark4"

Thank you. That worked, but now it is changing the style of all slicers throughout the workbook. How do I limit it to just the active sheet?

 

[Fluff]

Cross posted http://www.vbaexpress.com/forum/showthread.php?64327-VBA-for-Slicer-amp-Table-Formatting

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[Noofus]

Cross posted http://www.vbaexpress.com/forum/showthread.php?64327-VBA-for-Slicer-amp-Table-Formatting

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

Thanks for the info. Forum etiquette is new to me . . .