Hello, I'm trying to reference picture on a separate sheet called chains on an imagelist, but I keep getting file not found error. Could you guys offer some help? Below the code I'm using.
Private Sub UserForm_Initialize()
With Me.ImageList3.ListImages
.Add , "img1", LoadPicture("Chains.Picture2")
.Add , "img1", LoadPicture("Chains.Picture4")
.Add , "img1", LoadPicture("Chains.Picture6")
.Add , "img1", LoadPicture("Chains.Picture8")
.Add , "img1", LoadPicture("Chains.Picture10")
End With
With Me.ImageCombo1
.ImageList = ImageList3
.ComboItems.Add , , "882", img1
.ComboItems.Add , , "1001", img2
.ComboItems.Add , , "1060", img3
.ComboItems.Add , , "1505", img4
.ComboItems.Add , , "8505", img5
End With
End Sub
Private Sub UserForm_Initialize()
With Me.ImageList3.ListImages
.Add , "img1", LoadPicture("Chains.Picture2")
.Add , "img1", LoadPicture("Chains.Picture4")
.Add , "img1", LoadPicture("Chains.Picture6")
.Add , "img1", LoadPicture("Chains.Picture8")
.Add , "img1", LoadPicture("Chains.Picture10")
End With
With Me.ImageCombo1
.ImageList = ImageList3
.ComboItems.Add , , "882", img1
.ComboItems.Add , , "1001", img2
.ComboItems.Add , , "1060", img3
.ComboItems.Add , , "1505", img4
.ComboItems.Add , , "8505", img5
End With
End Sub