ImageCombobox doesn't display images when Excel is opened

Greetings everyone,

I recently discovered the ImageComboBox to display images in a dropdown menu and this is something really handy. Unfortunately, I'm having issues to make it work properly.

I have an ImageCombobox Control and an Imagelist Control.

Imagelist Control:
The pictures have been added to the Imagelist Control. Keys are labeled "A1" and "A2".

ImageCombobox:
In the properties, the image list has been set on "ImageList1" (name of the Imagelist Control).

The VBA code I'm using:

Private Sub Workbook_Open()

With Sheets("Sheet1").ImageCombo1
.ComboItems.Clear
.ComboItems.Add 1, "A1", "", 1
.ComboItems.Add 2, "A2", "", 2

End With
End Sub

My problem:

If I run the code, it's actually working. However, if I close the document and I reopen it, the images are no longer displayed in the dropdown menu.
In order to display them again, I have to do the following:

- Go to the ImageCombobox properties.
- Set the image list to "none" and click "Apply.
- Set the image list to "ImageList1" and click "OK".
- Open the VBA code and press F5 to run the code.

My guess is that I'm missing a trigger event but I thought that "Private Sub Workbook_Open()" was used as an event...

May I ask if someone has any idea about what's wrong?
Thanks in advance for your help.

I've experienced the same thing in the past.

I recall using the activate function in the end rather than the open.
Might be worth a try.

Originally Posted by Norie

Have you tried setting the ImageList property of the ImageCombo in the code?

Please Login or Register  to view this content.

Thank you for your help. I'm afraid this code didn't change anything (I tried to copy it in "Sheet1" as well as "ThisWorkbook").

As for the Activate function, I tried this "Private Sub Workbook_SheetActivate(ByVal Sh As Object)" but it didn't change anything...
Am I doing something wrong?

I did Alt+F11 to open the VBA editor and I put the code in "Sheet1" first. Since it didn't work, I put it in "ThisWorkbook".
Sheet1 is where the Imagecombobox/ImageList are.

Originally Posted by Andy Pope

Try this

Please Login or Register  to view this content.

Thank you very much, this works.

Now, I just have a last minor issue and I'd like to ask for your advice (so sorry for the trouble...).
When I open the document, the images are now displayed in the combobox dropdown menu. However, the combobox size is reset and therefore is too small. Also the backcolor is reset (the color set seems random though...).

Do you know if there is a setting for this to ensure that the height/width I specify doesn't reset when I reopen the document?
I'm thinking about adding a macro to manually set the height/width but maybe I just missed something in the properties...

Thanks again for your help.

It turns out that the document still doesn't work because:

1) Since the VBA includes "ImageList = Nothing", the images set previously before closing the document are not saved.
2) For some reason, the code to resize the combobox works fine on my computer session but causes an error if someone else opens it.

I think I'll look into the Gallery option and see if that could be an alternative.
As always, thanks very much for your help.