I am trying to create a drop down list which has pictures and not text. I have copied the VBA below from another thread but cannot add other images. I have changed the path to where my images are stored. The comment says add images 2 to 5 but I am not that familiar with VBA.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
Select Case Target.Column
Case Is = 1
ImageDropDown.Image1.Picture = LoadPicture("C:\droptest\1.jpg")
'Add Images 2 to 5
ImageDropDown.Show
Select Case RtnVal
Case Is = "Image1"
ActiveSheet.Pictures.Insert("C:\droptest\1.jpg").Select
'Add Images 2 to 5
End Select
Selection.Width = Target.Width
Selection.Top = Target.Top
Selection.Left = Target.Left
End Select
End Sub
Bookmarks