VBA Code To automatically insert pictuer in userform depending un combobox value

[zlurba]

Hello, would appreciate if someone could help me with this code. What i need is to automatically put a picture in userform after value in combobox is typed or selected. Combobox is in the same userform. The picture is with the same name as tha value. Both excel file and images files are in the same folder.

 

[Alan_P]

Hi zlurba,

So this is with a ComboBox and an image control in the userform

I've put the file path in the code and it assumes that all the picture file types are the same (i.e. jpeg's)

Private Sub ComboBox1_Change()
On Error GoTo Errhand

Me.Image1.Picture = LoadPicture("C:\Users\Alan_P\Desktop\Test Pics\" & ComboBox1.Value & ".JPG")
Exit Sub

Errhand:
MsgBox ("Picture not found, please check spelling or blah bla blah")

End Sub

Hope this helps,
Cheers,
Alan.

 

[zlurba]

Thanks very much!!! Works great!!

But i have one problem. If value in combobox is typed, can it be done that error message does not pop up after every letter is typed?

 

[Alan_P]

Ah yes didn't think of that sorry

Try this;

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error GoTo Errhand

If KeyCode = vbKeyReturn Then
    
    Me.Image1.Picture = LoadPicture("C:\Users\Alan_P\Desktop\Test Pics\" & ComboBox1.Value & ".JPG")
    
End If

Exit Sub
Errhand:
MsgBox ("Picture not found, please check spelling or blah bla blah")
End Sub

So the picture will now only change once the enter key is pressed...

Cheers,
Alan.

 

[zlurba]

Thank you Alan! You are the best!

 

[Alan_P]

No worries, happy to help