Looping through all Slicers in Workbook

[Richynero]

Hello all,

I have a workbook with about 100 pivot tables (no joke) and I need to change all the slicers associated with them to 'Don't move or size with cells'.

When I record a macro to change 2 slicers on 1 sheet attached to 1 pivot table I get this:

  ActiveSheet.Shapes.Range(Array("Entity 4")).Select
    Selection.Placement = xlFreeFloating


    ActiveSheet.Shapes.Range(Array("Internal/External 4")).Select
    Selection.Placement = xlFreeFloating

But I want to change this to loop through all sheets and if there is a pivot table, then change all slicers (ranging from 1 to 3 slicers with any given pivot table, 1 pivot table per worksheet) to 'Don't move or size with cells'.

Any ideas?

Thanking you for your help in advance

Richard

 

[Richynero]

Hello there, me again!

I managed to work it out..

Sub LoopShapes()


Dim shp As Shape


    For Each wsh In Application.Worksheets
    
    wsh.Activate
    
        For Each shp In ActiveSheet.shapes
        
        shp.Placement = xlFreeFloating
        
        Next shp
    
    Next wsh


End Sub