VBA Code to Delete Pictures on Certain Cells on Worksheet

[Bobbbo53]

I have some worksheets that I want to delete pictures across the top of the worksheet. I do not know the pictures exact name or number i.e."picture 5" just where they are located. I have found VBA code to remove all pictures on a worksheet, but that would result in pictures I want to keep being deleted. For clarification the pictures are located in this range: A1:L7.

 

[Gary's Student]

Do you want to delete all pictures in the range A1:L7 or only the ones in A1:L1 ?

 

[Bobbbo53]

Yes, all in the range of A1 to L7

 

[Gary's Student]

Try this macro:

Sub PictureKiller()
    Dim s As Shape, rng As Range
    Set rng = Range("A1:L7")
    
    For Each s In ActiveSheet.Shapes
        If Intersect(rng, s.TopLeftCell) Is Nothing Then
        Else
            s.Delete
        End If
    Next s
End Sub

 

[utuber]

Hey Gary's Student

Thanks for the above Sub PictureKiller, just what I needed