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

 

[My Aswer Is This]

I have a Image control on my Userform named Image1.
When the Userform opens I have a script that loads all the image names into a Listbox on my Userform.
In the listbox I have a script so if I select Duck the image named Duck is showed in the Image control.
So The actual image is not on my Userform it's still in my computers Image file. But when I choose duck from the Listbox the image named Duck is shown in my Image control
Here are my two scripts:

Private Sub ListBox1_Click()
Me.Image1.Picture = LoadPicture("C:\Users\owner\Pictures\Ducks\" & ListBox1.Value)
End sub

This script loads all the image names into the listbox

Private Sub UserForm_Initialize()
Filename = Dir("C:\Users\owner\Pictures\Ducks" & "\*.jpg", vbNormal)
Do While Len(Filename) > 0
UserForm1.ListBox1.AddItem Filename
Filename = Dir()
Loop
End Sub

 

[stirlingmw1]

Thanks for your reply
Unfortunately having the picture files in a separate folder is not an option as the workbook I am developing will be sent out to my ships. If I add the pictures to a separate worksheet "Images" and name them in accordance with the Combobox selections how would I amend the code you have supplied.

Thanks

Steve

 

[stirlingmw1]

I have a Image control on my Userform named Image1.
When the Userform opens I have a script that loads all the image names into a Listbox on my Userform.
In the listbox I have a script so if I select Duck the image named Duck is showed in the Image control.
So The actual image is not on my Userform it's still in my computers Image file. But when I choose duck from the Listbox the image named Duck is shown in my Image control
Here are my two scripts:

Private Sub ListBox1_Click()
Me.Image1.Picture = LoadPicture("C:\Users\owner\Pictures\Ducks\" & ListBox1.Value)
End sub

This script loads all the image names into the listbox

Private Sub UserForm_Initialize()
Filename = Dir("C:\Users\owner\Pictures\Ducks" & "\*.jpg", vbNormal)
Do While Len(Filename) > 0
UserForm1.ListBox1.AddItem Filename
Filename = Dir()
Loop
End Sub

Thanks for your reply
Unfortunately having the picture files in a separate folder is not an option as the workbook I am developing will be sent out to my ships. If I add the pictures to a separate worksheet "Images" and name them in accordance with the Combobox selections how would I amend the code you have supplied.

Thanks

Steve

 

[My Aswer Is This]

So let me see if I understand
You want to have a Worksheet in the active Workbook
With a sheet named Images
When the userform is opened all the images on this sheet will show up in the Combobox on the userform The Combobox is named Combobox1
Then if you choose "Alpha" the ship named "Alpha" will now appear in your Image control on your userform. Or if you choose "Bravo" the ship named "Bravo" will appear in the image control

Is this correct?

 

[stirlingmw1]

So let me see if I understand
You want to have a Worksheet in the active Workbook
With a sheet named Images
When the userform is opened all the images on this sheet will show up in the Combobox on the userform The Combobox is named Combobox1
Then if you choose "Alpha" the ship named "Alpha" will now appear in your Image control on your userform. Or if you choose "Bravo" the ship named "Bravo" will appear in the image control

Is this correct?

Sorry, I am not being clear.

The Userform Combobox has the ships names (not pictures). If the text ships name "A" is selected from the Combobox Picture "A" is displayed on the Userform Image1 control.

As this Workbook will be utilised by all of my ships on their own platform and not from a central server, keeping the pictures in a Folder doesn't seem to be an option, so my thinking would be to have all of these pictures (Sized and labelled correctly) held within the active workbook "Images" worksheet.

I hope that helps clarify things.

Steve

 

[My Aswer Is This]

Yes I worded that wrong I said
When the userform is opened all the images on this sheet will show up in the Combobox on the userform
Should have said image name

 

[My Aswer Is This]

I'm sorry but I have not been able to come up with a way to do this.
I know how to load images from a file to the userform image control but not from a worksheet.
Maybe someone else here on the forum will have a answer.

 

[stirlingmw1]

I'm sorry but I have not been able to come up with a way to do this.
I know how to load images from a file to the userform image control but not from a worksheet.
Maybe someone else here on the forum will have a answer.

thanks for taking the time to try.

regards

Steve

 

[My Aswer Is This]

thanks for taking the time to try.

regards

Steve

I will keep watching to see what I can learn. I would like to know the answer also.