Select all Slicers Report Connections with VBA

Miroy72

New Member
Joined
Aug 7, 2014
Messages
47
I m using this code to deselect all slicers report connections in my file. How can I adjust the code that would select (instead of deselect) the slicer connections? Thanks in advance!

VBA Code:
Sub DisconnectAllSlicers()
Dim SlicersDict As Variant

Set SlicersDict = CreateObject("Scripting.Dictionary")

Dim sl As SlicerCache, slpt As PivotTable, SlItem As Variant

'create a dictionary with slicers and connected pivot tables
For Each sl In ThisWorkbook.SlicerCaches
SlicersDict.Add Key:=sl.Name, Item:=sl.PivotTables
Next

'take each slicer
For Each SlItem In SlicersDict.Keys
    'remove pt connections for this slicer
    For Each slpt In SlicersDict(SlItem) 'for each pivot table controlled by this slicer,
        slpt.SaveData = True
        ThisWorkbook.SlicerCaches(SlItem).PivotTables.RemovePivotTable (slpt)
    Next slpt
Next SlItem

Set SlicersDict = Nothing
End Sub
 

Some videos you may like

Excel Facts

Convert text numbers to real numbers
Select a column containing text numbers. Press Alt+D E F to quickly convert text to numbers. Faster than "Convert to Number"

Watch MrExcel Video

Forum statistics

Threads
1,123,278
Messages
5,600,695
Members
414,400
Latest member
Damocles2021

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top