HOW TO: Check if a picture exists?

[Guest]

I have the followinf code

Set picDB = ws.Pictures("DB_LOGO_1")

but if the worksheet does not contain the logo then I get an error,
therefore how can I check if the picture exists before I try to set picDB to
it?

TIA
KM

 

[Die_Another_Day]

On Error Resume Next
Set picDB = ws.Pictures("DB_LOGO_1")
If picDB is Nothing Then
'Does Not Exist
End If
On Error Goto 0

Charles

 

[Guest]

Thats just cheesy coding

On Error Resume Next
Set picDB = ws.Pictures("DB_LOGO_1")
If picDB is Nothing Then
'Does Not Exist
End If
On Error Goto 0

Charles

 

[Die_Another_Day]

Gee glad to be of help....

anyhow you can also loop through them and test the name of all pictures
but that is not very efficient if you have a lot of pictures.

Sub FindPic()
Dim pic1
For Each pic1 In ws.Pictures
If pic1.Name = "DB_LOGO_1" Then _
Set picDB = pic1
Next

Charles

P.S. What's with all the rude posters lately?

 

[NickHK]

There's nothing with using the information returned from an error. That's
why you are given the chance to examine the error and decide how you wish to
proceed.
What would be your "non-cheesy" solution ?

NickHK

 

[NickHK]

That should read "There's nothing wrong with....

NickHK