Use alternative file if original file not available VBA EXCEL

**alrighty93** · 11-14-2012, 08:49 PM

Hello

When a item is selected from a list box, I want to display an image in a picturebox which matches the the item selected. (Managed to do that).
Then if that file is not available, I would like to call up another image to display instead. This is what I have so far. It displays the image if it is there but if it is not available nothing changes.

Private Sub Listbox_Click()

a = Listbox.Text
On Error Resume Next
 Section_pic2.Picture = LoadPicture("G:\Design\clinton\Calculator\New Pictures\" & a & ".jpg")
On Error GoTo 0
If Section_pic2.Picture Is Nothing Then
Section_pic2.Picture = LoadPicture("G:\Design\clinton\Calculator\New Pictures\No Image.jpg")
End If
End Sub

Sorry if it is a bad post as this is my first.

**Norie** · 11-14-2012, 09:19 PM

I don't think Section_pic2 will ever be nothing.

Why not try checking if the image file exists?

Private Sub Listbox_Click()

   a = Listbox.Text

    If Len(Dir("G:\Design\clinton\Calculator\New Pictures\" & a & ".jpg"))<>0  Then    
           Section_pic2.Picture = LoadPicture("G:\Design\clinton\Calculator\New Pictures\" & a & ".jpg")
    Else 
           Section_pic2.Picture = LoadPicture("G:\Design\clinton\Calculator\New Pictures\No Image.jpg")
    End If

End Sub