A possible non-VBA solution:

I'll assume you want the pictures to show on Sheet1.

1)Paste a picture into a blank sheet in your workbook.
2)Select the range of cells that contains the picture,
3)Set the fill color of the range to White.
4)Name that range of cells:
Example:
InsertNameDefine
Name: Farming

5)Repeat steps 1 thru 4 for each picture (making sure that no picture ranges
overlap)

6)Select Sheet1 and type one of your picture range names in Cell A1.
7)Create a dynamic range name as follows:
InsertNameDefine
Name: ShowMyPic
RefersTo: =INDIRECT(Sheet1!$A$1)

8)Select cells A5:B10.
9)Hold down the [Shift] key and EditCopyPicture
10)Paste the picture somewhere over Cell E10.
11)While the picture is still selected, type this in the formula bar:
=ShowMyPic
then press [Enter]

The range of cells that was previously displayed should now be replaced by
the picture referred to by the name you typed in Cell A1.

Each time you type a different picture range name in Cell A1 the associated
picture will appear in the picture box and resize appropriately.

Also, you could reference a list of those picture range names in a Data
Validation for Cell A1 so you could simply pick them from the list.

Is that something you can work with?

Regards,
Ron