Macro to check file loading of picture

[GoodmanJim]

I want to check to see if I have valid variable file address for the picture. If valid I want to insert picture on worksheet. If invalid I want to insert a picture from another work sheet.

Dim myPicture As String
Dim pic As Picture
Set r = Selection 'Range("200")
'error check on PicPath
'set pic = ActiveSheet.Pictures.Insert(PicPath) > 0 then GoTo nopic

Set pic = ActiveSheet.Pictures.Insert(PicPath)

 

[MickG]

Hi, Try this:-

Dim filesys As Object, myfile As String
Set filesys = CreateObject("Scripting.FileSystemObject")
 myfile = ("C:\Documents and Settings\test\My Documents\My Pictures\MyPic.jpg")

If filesys.fileExists(myfile) Then
    ActiveSheet.Pictures.Insert(myfile).Select
End If

Regards Mick