Error adding ActiveX Control Combo box with "For Each oPic In Me.Pictures"

[cbell]

Hello

I am new to the formum and just getting into more VB thru Excel and I am looking for a little help please.

I read multiple threads/posts on using pictures within excel.

I have the image lookup working great using this code based on http://www.mcgimpsey.com/excel/lookuppics.html.

Please Login or Register  to view this content.

However, now when I go to insert an activex control Combobox I start getting errors.
Run-time error '13' to be specific.
Plus my combobox disappers.

If I go back into design mode and delete combobox the issue goes away.

I am looking to add multiple activex comboboxes and would appreciate any help.

Thanks
Cbell

[davegugg]

Hi cbell, welcome to the forum. Please have a look at the forum rules, then edit your post to include code tags. Once the tags have been added, we'll be happy to help you solve your problem.

[beaunydal]

Pictures are shape objects of type 13.
The combo box is a shape object of type 12.
For some reason, the combo box shape is being included in the Picture objects, so it is being hidden by the code.
One solution is to avoid the Picture objects in "Dim OPic as Picture", and instead use "Dim OPic as Shape".
This however does mean you can't use the "Me.Pictures.Visible = False" line and instead have to loop through all of the sheet's shapes and hide only those of type 13 (Pictures).
Also, the part of the code that shows and positions the F1 picture will also need to first test each shape's type and only act on type 13 shapes...

Please Login or Register  to view this content.

This code will also circumvent another known Picture object problem, namely that after something like 60 pictures on the sheet the code fails to recognise further pictures, and throws another error.

Beau Nydal

[cbell]

Wow, Thank you very much Beau. Worked great.

[deleted_alien]

This is waaaay too gooooood.

This post is the reason i registered on this forum Thanx soo very much!