How to view an item Image in a Userform from a saved Image Folder

[michaelroshan]

I have a workbook that has 1500 itmes as inventory and items going out and coming in everyday.
I have a userform which i have bult to manage this with ease all items linked to an itemcode. I would like to display the item image as well in the same userform when item is recalled by item code using comboBox. how can i do this?
know there is a method where we can store all images in a folder and all items names with the matching item code but i have no clue how to link them with VBA and display it on the user form.
Can you help on this?

 

[EXCEL MAX]

Hello Michaelroshan,
in the same folder put all images.
Fill the combobox rowsource with names of your files.
Take care your images have same extension.
Change path in this code to the location of your folder and try...

Private Sub ComboBox1_Change()

     On Error GoTo EX:
     Me.Image1.Picture = LoadPicture("C:\" & Me.ComboBox1.Value & ".jpg")
EX:

End Sub

 

[michaelroshan]

Hello Michaelroshan,
in the same folder put all images.
Fill the combobox rowsource with names of your files.
Take care your images have same extension.
Change path in this code to the location of your folder and try...

Private Sub ComboBox1_Change()

     On Error GoTo EX:
     Me.Image1.Picture = LoadPicture("C:\" & Me.ComboBox1.Value & ".jpg")
EX:

End Sub

Hi Sir, Many Thanks for your response but i am actually stuck as to where i can insert this code.

the fllowing is the code i have so far for the userform as of now, I added your code right at the bottom of the following code and changed the path and names of the images to match.

but it dose not show in the imagebox in the userform!

am i doing something wrong somewhere?


Private Sub ItemBox_Change()
RunObject Me.ItemBox
End Sub
Private Sub CCBox_Change()
RunObject Me.CCBox
End Sub
Private Sub MonthBox_Change()
RunObject Me.MonthBox
End Sub
Private Sub NameBox_Change()
RunObject Me.NameBox
End Sub
Private Sub RunObject(Object)
Dim sr As String
Dim nm As String
Dim lookupRange As Range
'Dim ItemBox As Variant
'Dim MonthBox As Variant
'Dim CCBox As Variant
Set lookupRange = Worksheets("Sheet1").Range("$A$5:$CWI$7000")
'If Me.ItemBox.Value = "" Then
'MsgBox "Please Enter Item Code to Update!!!", vbExclamation, "Item Code!"
'Exit Sub
'End If
sr = Me.ItemBox.Value
nm = Me.NameBox.Value
On Error Resume Next
Me.ItemBox.Value = Application.WorksheetFunction.VLookup(nm, lookupRange, 1, 0)
Me.NameBox.Value = Application.WorksheetFunction.VLookup(sr, lookupRange, 2, 0)
Me.UnitBox.Value = Application.WorksheetFunction.VLookup(sr, lookupRange, 3, 0)
Me.Label16 = Application.WorksheetFunction.VLookup(sr, lookupRange, 126, 0)

 

[EXCEL MAX]

Here...

Private Sub RunObject(Object)
  
    Dim sr As String
    Dim nm As String
    Dim lookupRange As range
    'Dim ItemBox As Variant
    'Dim MonthBox As Variant
    'Dim CCBox As Variant
    Set lookupRange = Worksheets("Sheet1").range("$A$5:$CWI$7000")
    'If Me.ItemBox.Value = "" Then
    'MsgBox "Please Enter Item Code to Update!!!", vbExclamation, "Item Code!"
    'Exit Sub
    'End If
  
    On Error Resume Next
    Me.ItemBox.Value = Application.WorksheetFunction.VLookup(nm, lookupRange, 1, 0)
    Me.NameBox.Value = Application.WorksheetFunction.VLookup(sr, lookupRange, 2, 0)
'    Me.UnitBox.Value = Application.WorksheetFunction.VLookup(sr, lookupRange, 3, 0)
'    Me.Label16 = Application.WorksheetFunction.VLookup(sr, lookupRange, 126, 0)

    sr = Me.ItemBox.Value
    nm = Me.NameBox.Value
    Me.Image1.Picture = LoadPicture("C:\" & nm & ".jpg")

End Sub

 

[EXCEL MAX]

Sorry my mistake...

Private Sub RunObject(Object)

   Dim sr As String
   Dim nm As String
   Dim lookupRange As range
   'Dim ItemBox As Variant
   'Dim MonthBox As Variant
   'Dim CCBox As Variant
   Set lookupRange = Worksheets("Sheet1").range("$A$5:$CWI$7000")
   'If Me.ItemBox.Value = "" Then
   'MsgBox "Please Enter Item Code to Update!!!", vbExclamation, "Item Code!"
   'Exit Sub
   'End If

   sr = Me.ItemBox.Value
   nm = Me.NameBox.Value

   On Error Resume Next
   Me.ItemBox.Value = Application.WorksheetFunction.VLookup(nm, lookupRange, 1, 0)
   Me.NameBox.Value = Application.WorksheetFunction.VLookup(sr, lookupRange, 2, 0)
  ' Me.UnitBox.Value = Application.WorksheetFunction.VLookup(sr, lookupRange, 3, 0)
  ' Me.Label16 = Application.WorksheetFunction.VLookup(sr, lookupRange, 126, 0)

   Me.Image1.Picture = LoadPicture("C:\" & nm & ".jpg")

End Sub

Be sure that VLookup finding this name in the sheet.

 

[EXCEL MAX]

Also replace variables places.
Change...

   Me.ItemBox.Value = Application.WorksheetFunction.VLookup(nm, lookupRange, 1, 0)
   Me.NameBox.Value = Application.WorksheetFunction.VLookup(sr, lookupRange, 2, 0)

to

   Me.ItemBox.Value = Application.WorksheetFunction.VLookup(sr, lookupRange, 1, 0)
   Me.NameBox.Value = Application.WorksheetFunction.VLookup(nm, lookupRange, 2, 0)