Hello, I'm currently trying to insert pictures and text in a combobox on a userform. The code below is what I was able to come up with but for some reason nothing is showing up, could you guys help shed some light?
Private Sub ComboBox2_DropButtonClick()
With Me.ComboBox2.listimages
.Add , "imgl1", LoadPicture("C:\Users\rrmu135\OneDrive - Regal Beloit\Desktop\Chains\882")
.Add , "imgl2", LoadPicture("C:\Users\rrmu135\OneDrive - Regal Beloit\Desktop\Chains\1001")
.Add , "imgl3", LoadPicture("C:\Users\rrmu135\OneDrive - Regal Beloit\Desktop\Chains\1060")
.Add , "imgl4", LoadPicture("C:\Users\rrmu135\OneDrive - Regal Beloit\Desktop\Chains\1505")
.Add , "imgl5", LoadPicture("C:\Users\rrmu135\OneDrive - Regal Beloit\Desktop\Chains\8505")
End With
With Me.ComboBox2
.ImageList = ComboBox2
.ComboItems.Add , , "882", 1
.ComboItems.Add , , "1001", 2
.ComboItems.Add , , "1060", 3
.ComboItems.Add , , "1505", 4
.ComboItems.Add , , "8505", 5
End With
End Sub
-Thanks
Private Sub ComboBox2_DropButtonClick()
With Me.ComboBox2.listimages
.Add , "imgl1", LoadPicture("C:\Users\rrmu135\OneDrive - Regal Beloit\Desktop\Chains\882")
.Add , "imgl2", LoadPicture("C:\Users\rrmu135\OneDrive - Regal Beloit\Desktop\Chains\1001")
.Add , "imgl3", LoadPicture("C:\Users\rrmu135\OneDrive - Regal Beloit\Desktop\Chains\1060")
.Add , "imgl4", LoadPicture("C:\Users\rrmu135\OneDrive - Regal Beloit\Desktop\Chains\1505")
.Add , "imgl5", LoadPicture("C:\Users\rrmu135\OneDrive - Regal Beloit\Desktop\Chains\8505")
End With
With Me.ComboBox2
.ImageList = ComboBox2
.ComboItems.Add , , "882", 1
.ComboItems.Add , , "1001", 2
.ComboItems.Add , , "1060", 3
.ComboItems.Add , , "1505", 4
.ComboItems.Add , , "8505", 5
End With
End Sub
-Thanks