My delete picture code doesn't work

[ashley12]

Hi everyone,

I used some codes to insert a picture in a sheet. Then later I want to delete it, but leave the command button. I tried 3 different codes but none of them works.

This one doesn't do anything

Dim Pic As Shape
        For Each Pic In ActiveSheet.Shapes
            If Pic.Type = msoPicture Then
            Pic.Delete
            End If
        Next

This one says "Type mismatch"

Dim Pic As Picture
        For Each Pic In ActiveSheet.Pictures
            Pic.Delete
        Next

This one delete both the picture and my command button

Activesheet.Pictures.Delete

And here is my code to add the picture in if that helps.

Sub Present_Pic()
    If PicPath = "" Then Exit Sub
  
    Dim Pic As Picture, ImageCell As Range

    Set ImageCell = Interface.Cells(20, 8)

    Set Pic = Interface.Pictures.Insert(PicPath)
    With Pic
        .Left = ImageCell.Left
        .Top = ImageCell.Top
        .Width = 400

    End With
  
    Set Pic = Nothing

End Sub

Thank you all in advance

 

[diddi]

it might pay to see if your pics are

Pic.type=msolinkedpicture 'or
Pic.type=msoEmbeddedOLEObject

 

[ashley12]

Thank you. I've check and it says the type of Pic is "Shape" ?
Is there a more specific property it than type?

 

[diddi]

check Shape.Name
or if there are no other shapes, you can delete them all, but considering when you trued that it errored there must be some others.

 

[ashley12]

Thank you. It works now :D

 

[diddi]

got there in the end LOL