Cycle through each imagine in sheet and change it's height / width ignoring one image?

[Hyflex]

Anyone know how do the following:

Cycle through every image on a sheet without knowing their picture name OR cycle through Picture 2 to Picture 50 ignoring any what don't exist?

And then setting their width and height to the following:
Selection.ShapeRange.Height = 70.8661417323
Selection.ShapeRange.Width = 87.874015748

Thanks in advance
- Hyflex

[xladept]

Hi Hyflex,

Try this:

Sub ResizePics()
    Dim pic As Object, ws As Worksheet, r As Range
                  Set ws = ActiveSheet
    
    For Each pic In ws.Shapes
    If pic.Type = msoPicture Then
               
            pic.LockAspectRatio = msoFalse
            pic.Width = 87.874015748
            pic.Height = 70.8661417323

    End If: Next pic: End Sub

[Hyflex]

How to I make exceptions for image names?

So Picture 1, Picture 2, Picture 5?

Also is it possible to adjust their position from current position down 5 pixels and right 10 pixels?

[xladept]

Here's one way - if you have a lot of exceptions, we should code it differently

Sub ResizePics()
    Dim pic As Object, ws As Worksheet, r As Range, N As String
                  Set ws = ActiveSheet
    
    For Each pic In ws.Shapes
    If pic.Type = msoPicture Then
     N = pic.Name
     If N <> "Picture 1" Or N <> "Picture 2" Or N <> "Picture 5" Then
            pic.LockAspectRatio = msoFalse
            pic.Top = pic.Top + 5
            pic.Left = pic.Left + 10
            pic.Width = 87.874015748
            pic.Height = 70.8661417323

    End If: End If: Next pic: End Sub