HOW TO: Check if a picture exists?
 

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

HOW TO: Check if a picture exists?
 

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

Kevin McCartney wrote:
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

HOW TO: Check if a picture exists?
 

Thats just cheesy coding

"Die_Another_Day" wrote:

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

Kevin McCartney wrote:
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

HOW TO: Check if a picture exists?
 

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?
Kevin McCartney wrote:
Thats just cheesy coding

"Die_Another_Day" wrote:

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

Kevin McCartney wrote:
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

HOW TO: Check if a picture exists?
 

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

"Kevin McCartney" wrote in
message ...
Thats just cheesy coding

"Die_Another_Day" wrote:

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

Kevin McCartney wrote:
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

HOW TO: Check if a picture exists?
 

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

NickHK

"NickHK" .gbl...
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

"Kevin McCartney" wrote in
message ...
Thats just cheesy coding

"Die_Another_Day" wrote:

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

Kevin McCartney wrote:
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