Delete Shape in Specific cells range and not all

[shah12345]

How to write VBA programme to delete shape in specific range and not in all sheets.
I have 15 images in my sheet out of which one image i needs to replace.
I know the location of that image i.e. "A201:I230"
So how can delete the shape/image in that range before I insert new image.

 

[Gary McMaster]

Try the following on a back-up copy of your work.

Hope it helps.

Gary

Public Sub Test()

Dim oShape As Shape

For Each oShape In ActiveSheet.Shapes
    If Not Application.Intersect(oShape.TopLeftCell, ActiveSheet.Range("A201:I230")) Is Nothing Then
        oShape.Delete
    End If
Next

End Sub

 

[shah12345]

Thank you very much Sir, It is working. I will test again for few times.
I have one more question.

If there is no image in that cells range then I will get error and my macro will not run. How to get rid from that.

 

[Saiya]

on error resume next, or
before the loop, add: if activesheet.shapes.count>0 then ...

 

[Jyggalag]

Try the following on a back-up copy of your work.

Hope it helps.

Gary

Public Sub Test()

Dim oShape As Shape

For Each oShape In ActiveSheet.Shapes
    If Not Application.Intersect(oShape.TopLeftCell, ActiveSheet.Range("A201:I230")) Is Nothing Then
        oShape.Delete
    End If
Next

End Sub

This just saved my life 11 years later :D