Help with Pictures on Userform

**rosboy** · 06-27-2013, 12:20 PM

Hi,

I'm trying to setup a userform that would display pictures pulled from my computer based on a look up value from a combox value. The combo box is Named "cboSKU", I'm encountering two issues with my code.

I want the picture to auto update when i enter the combo box value, currently I have to click the image box to get the picture loaded.
When the file is found it takes a very long time to load.
If there isn't any picture found, I want it to just print "Picture Not Found" in the image box, but can't get it to work. My code now is setup to show an message box but that doesn't either work.

I can't attach a file due to sensitive information, However here is the code.

Private Sub Image1_Click()
Dim LosSKU As String
LosSKU = Worksheets("COSTS").Range("A:A").Find(cboSKU).Offset(0, 12)
pic = "C:\SKU IMAGES\" & (LosSKU) & ".jpg"
Image1.Picture = LoadPicture(pic)
    If IsError(Image1.Picture) Then
        MsgBox "No Picture Found"
        Exit Sub
       End If
End Sub

I'm a newbie to VBA, but a quick learner.
Thanks for any assistance.

**AndyLitch** · 06-27-2013, 12:54 PM

Combobox1_Change
pic = me.combobox1.value
Image1.Picture = LoadPicture(pic)
If IsError(Image1.Picture) Then
MsgBox "No Picture Found"
Exit Sub
End If
End Sub

**rosboy** · 06-27-2013, 01:14 PM

Thanks for the quick reply, The change event was crashing to quickly, i changed the first line to AfterUpdate which solved that problem. The pictures load much quickly however the error handling is still not fixed. It gives me the build in VBA error
"Runtime Error '53':
File Not Found
Here is the updated code I used:

Sub cboSKU_AfterUpdate()
pic = "C:\SKU IMAGES\" & Worksheets("COSTS").Range("A:A").Find(cboSKU).Offset(0, 12) & ".jpg"
Image1.Picture = LoadPicture(pic)
If IsError(Image1.Picture) Then
MsgBox "No Picture Found"
Exit Sub
End If
End Sub

Thanks

**AndyLitch** · 06-27-2013, 01:21 PM

Sub cboSKU_AfterUpdate()
pic = "C:\SKU IMAGES\" & Worksheets("COSTS").Range("A:A").Find(cboSKU).Offset(0, 12) & ".jpg"
On Error Resume next
Image1.Picture = LoadPicture(pic)
If IsError(Image1.Picture) Then
MsgBox "No Picture Found"
on error goto 0
Exit Sub
End If
on error goto 0
End Sub

On Error Resume Next instructs VBA to ignore errors and leave the handling to the user.
On Error Goto Next resets to normal error handling

**rosboy** · 06-27-2013, 02:02 PM

Thanks it removed the errors messages but just leaves the old picture there without clearing it or displaying the message box. I can manage with that!
As a side question, I wouldn't mind streamlining my code, can you define one set error handling for the Form or each separate sub needs it's own error handling?
Thanks