Insert Picture(S) based on dropdown validation list

Hello everyone,

I am new to VBA!

Any help will be greatly appreciated.

I have a sheet named NCR Form, in cell A9 i have a dropdown data validation list, when i pick from the data validation list pre-determined cells are automatically populated, also within this sheet are 6 picture boxes,

What i want from these 6 picture boxes is when i pick from the Data Validation List the picture boxes automatically populate, the pictures can vary from 1 to 6.

I can do this now using a control button with the following code that i have managed to get from this wonderful site, however I have to have 6 pictures for each one in the list

Please Login or Register  to view this content.

The picture boxes are named Pic_1 to Pic_6
The pictures are located in C:\Output\ and are named NCR 00001_1, NCR 00001_2 etc

What i desire is to get rid of the command button and have the code that will automatically populate the picture boxes using the Dropdown Data Validation List, the number of pictures will vary from 1 to 6, and have them the same size.

Any help will be greatly appreciated!

Thank You

Rob

To install the code:

• Right-click on the sheet tab.
• Select View Code from the pop-up context menu.
• Paste the code from below in the worksheet's code module.

Please Login or Register  to view this content.

Try something like this (not tested).

Please Login or Register  to view this content.

This line should determine if the file exists before loading the image.
If Len(Dir(MyPic)) Then

When you click the Debug button on the error dialog, is this line highlighted?
.UserPicture MyPic
Or is this line highlighted?
.UserPicture ""

Hi AlphaFrog,

When I click the Debug button the following is highlighted
.UserPicture ""

Thank you.

As long as you're hiding the Shapes, you really don't need that line of code. Just delete it or comment it out.