Changing Image size using Macro, would like to loop it through all the worksheets.

[Ash k]

The Macro below is what I use to change the sizes of my pictures in one sheet but I would need to apply this to all my worksheets. What could I add here to make this happen?

Option Explicit
Sub ChangeAllPics()
Dim s As Shape
Dim ws As Worksheet
Set ws = ActiveSheet

For Each s In ActiveSheet.Shapes
s.LockAspectRatio = msoFalse
s.Width = 65
s.Height = 65

Next s
End Sub

Would really appreciate the help!

 

[sxhall]

This worked for me, however it also resized graphs and shapes that I had on a tab.

Sub ChangeAllPics()

Dim s As Shape
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

    For Each s In ws.Shapes
    
    s.LockAspectRatio = msoFalse
    s.Width = 65
    s.Height = 65
    
    Next s
    
Next
    
End Sub

 

[KOKOSEK]

Option Explicit
Sub ChangeAllPics()
Dim s As Shape
Dim sh As Worksheet

For Each sh In Worksheets
    For Each s In sh.Shapes
        With s
            .LockAspectRatio = msoFalse
            .Width = 65
            .Height = 65
        End With
    Next s
Next sh
End Sub