Loop Through the Folder and Dynamically Add Images to an ImageCombo Using Excel VBA
💡 Source Code
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms&)
Private Sub UserForm_Activate()
Dim i As Byte, f_dir_1 As String, f_dir_2 As String
file_dir_1 = "C:\Users\User\Desktop\ImageComboPics\Base\"
file_dir_2 = file_dir_1
file_dir_2 = Dir(file_dir_2)
While (Not file_dir_2 = Empty)
ImageList1.ListImages.Add , Replace(file_dir_2, ".jpg", ""), LoadPicture(file_dir_1 & file_dir_2)
file_dir_2 = Dir
Wend
Set ImageCombo1.ImageList = ImageList1
For i = 1 To ImageList1.ListImages.Count
ImageCombo1.ComboItems.Add , , ImageList1.ListImages(i).Key, i
Next i
End Sub
Private Sub ImageCombo1_Click()
Label1.Caption = "Your choice: " + UCase(ImageCombo1.ComboItems(ImageCombo1.SelectedItem.Index).Text)
End Sub
------------------------------------------------------------------------------------------
Buy a Cofee ☕ for theworldofalgorithms: https://ko-fi.com/theworldofalgorithms
🥰Thank you for the donation. I am deeply grateful for your help!🥰
------------------------------------------------------------------------------------------
#excel
#msexcel
#msexceltutorial
#msexcelcourse
#vba
#vbatutorial
#excelvba
#fulltutorial
#excelvbatutorial
#microsoftexceltutorial
#tutorial
#exceltutorial
#advancedexcel
#advancedexceltraining
#tutor
#exceltutor
#exceltutoring
#exceltutoringonline
#onlineexceltutoring
#algorithm
#algorithms
#programming
#program
#script
#vbamacro
#vbamacros
#usingmacro
#veryuseful
#useful
#veryusefulmacro
#freeeducation
#freeprogramming
#freelancer
#excelfreelancer
#vbafreelancer
#freelanceservices
#vbauserform
#excelvbauserform
#imagelist
#excelvbaimagelist
#vbaimagelist
#imagecombo
#excelvbaimagecombo
#vbaimagecombo