Show image based on Combobox selection

[stirlingmw1]

Morning All
I have a Userform with Combobox which I select a ships name "HMS Bangor", "HMS Blyth", "HMS Brocklesby" etc (17 ships in total). I also have a stack of ships crest Images on the same Userform each named after the ship "HMS Bangor", "HMS Blyth", "HMS Brocklesby" etc. Is there an easier way of showing the selected crest and hiding the rest based on this combobox selection rather than "if this show that and then hide the rest", in effect trying to cover every permutation in an If statement?

Thanks

Steve

 

[Fluff]

Loading the images from a sheet is not easy. It would be easier to add the images to the userform & then hide/unhide as needed.
You could then use something like

Dim PicAry As Variant

Private Sub ComboBox1_Click()
   Call HidePics
   Me.Controls(Me.ComboBox1.Value).Visible = True
End Sub

Private Sub UserForm_Initialize()
   Dim i As Long
   
   PicAry = Array("Cricket", "Football", "Golf", "Rugby")
   Me.ComboBox1.List = PicAry
   Call HidePics
End Sub
Sub HidePics()
   Dim i As Long
   For i = 0 To UBound(PicAry)
      Me.Controls(PicAry(i)).Visible = False
   Next i
End Sub

The line in blue must go at the very top of the userform module, before any code

 

[My Aswer Is This]

Loading the images from a sheet is not easy. It would be easier to add the images to the userform & then hide/unhide as needed.
You could then use something like

Dim PicAry As Variant

Private Sub ComboBox1_Click()
   Call HidePics
   Me.Controls(Me.ComboBox1.Value).Visible = True
End Sub

Private Sub UserForm_Initialize()
   Dim i As Long
  
   PicAry = Array("Cricket", "Football", "Golf", "Rugby")
   Me.ComboBox1.List = PicAry
   Call HidePics
End Sub
Sub HidePics()
   Dim i As Long
   For i = 0 To UBound(PicAry)
      Me.Controls(PicAry(i)).Visible = False
   Next i
End Sub

The line in blue must go at the very top of the userform module, before any code

Where in the script does it say the pictures are on a sheet named images?

 

[Fluff]

It doesn't, try reading what I said above the code.

@stirlingmw1
Forgot to mention that you will need to rename each image control to match the values in the combo.