Delete a picture

[proximum]

I insert a picture in my excel file with vb :
ActiveSheet.Pictures.Insert(sServerPath + SignatureFile)

Next, I would like to delete it in order to replace it. I do :

ActiveSheet.pictures(0).delete()

but it doesn't work.
Why? How can I do?

[Paul B]

Try this

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

[Ivan F Moala]

On 2002-05-16 02:50, proximum wrote:
I insert a picture in my excel file with vb :
ActiveSheet.Pictures.Insert(sServerPath + SignatureFile)

Next, I would like to delete it in order to replace it. I do :

ActiveSheet.pictures(0).delete()

but it doesn't work.
Why? How can I do?

The Picture is part of the Worksheets Shapes
To delete it then you must explicitly name
the Picture eg.
'
'

Sub Tester1()

ActiveSheet.Shapes("Picture 1").Delete

End Sub

'
'
Note: That when creating pictures via inserting the Picture name (That you see to
the right of the Formula bar = Name Box)
will always increment the name of the Picture
eg Picture 1, Picture 2 etc. so inserting and
then deleting them will always change the name. To get around this you can do one of two things.
1) Name your pictures when you insert it
2) Delete ALL pictures..this may not suit
but you can always be selective in your coding;

eg.
'
'

Sub Tester2()

Dim Pict As Object



For Each Pict In ActiveSheet.Shapes

    If Pict.Type = 13 Then

        Pict.Delete

    End If

Next



End Sub



Sub Tester3()

'// Name your Picture when inserting

ActiveSheet.Pictures.Insert(sServerPath + SignatureFile).Name = "Test"

End Sub