Erasing a picture

[mtheriault2000]

Hello

How could i erase a picture on my worsheet. The picture name is changing all the time. Erase all pictures is not an option since i would loose some graphic on my sheet.

The picture is originaly placed via a macro.

Martin

 

[Gary McMaster]

If you want to delete them selectively you will have to either supply a name or an index number in the collection.

As shown in the loop below, perhaps you could use "Instr" to delete pictures that have similar names yet differ from the graphics you want to keep.

Hope it helps.

Gary

'Delete single shape given the name
ActiveSheet.Shapes("Picture 1").Delete

'Visit all pictures delete select names
For Each oShape In ActiveSheet.Shapes
    If oShape.Type = msoPicture Then
        If InStr(1, oShape.Name, "Pict") Then oShape.Delete
        If oShape.Name = "Picture 1" Then oShape.Delete
        If oShape.Name = "Picture 2" Then oShape.Delete
    End If
Next

 

[mtheriault2000]

Thank you Gary

I will look around your code to implement it

Martin

 

[mtheriault2000]

Work perfectly

Dim Oshape As Variant
For Each Oshape In ActiveSheet.Shapes
If Oshape.Type = msoPicture Then
If InStr(1, Oshape.Name, "Image") Then Oshape.Delete
End If
Next

Martin