Delete Pictures within Range

[Learn_VBA]

I have a sheet called Executive Summary, I need to delete all the pictures within the rangeB37 to R107. What is the code for this?

 

[My Aswer Is This]

Try this:

Sub Test()
Dim Sh As Shape
With Worksheets("Executive Summary")
   For Each Sh In .Shapes
       If Not Application.Intersect(Sh.TopLeftCell, .Range("B37:R107")) Is Nothing Then
         If Sh.Type = msoPicture Then Sh.Delete
       End If
    Next Sh
End With
End Sub

 

[Learn_VBA]

Thank you. This worked perfectly.

Try this:

Sub Test()
Dim Sh As Shape
With Worksheets("Executive Summary")
   For Each Sh In .Shapes
       If Not Application.Intersect(Sh.TopLeftCell, .Range("B37:R107")) Is Nothing Then
         If Sh.Type = msoPicture Then Sh.Delete
       End If
    Next Sh
End With
End Sub

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Thank you. This worked perfectly.