Check your other post.

Danny wrote:

Hi Norman

I tried using the code on:

http://www.mcgimpsey.com/excel/lookuppics.html

And I managed to get it to work very well, the only problem is I need to
make 1 image visible but the code sets all images to visible = False.

If I have Picture 1 to 7 set to visible = False, do you know how I can set
Picture 8 to visible = True?

Any help would be appreciated.

Cheers

Danny

"Norman Jones" wrote:

Hi James,

See J.E. McGimpsey's approach at:

Looking up and displaying a picture based on a cell value
http://www.mcgimpsey.com/excel/lookuppics.html




---
Regards.
Norman


"James8309" wrote in message
...
Hi All,

I am trying to insert an image to Cell A1 to A3 if condition in Cell
B1 to B3 is met.

1. Pictures are saved under C:\Documents\Pictures\

2. Condition (Value in Cell B1,B2 and B3)
if value = "A" then insert 123.jpg
if value = "B" then insert 345.jpg
if value = "C" then insert 456.jpg

e.g. if cell B1 = "A" then insert 123.jpg in cell A1.

Ive done this so far,

Sub insert()
Dim myPath As String
Dim MyImage As String
myPath = "C:\Documents\Pictures\"

Range("B1").Activate
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""A"",
Activesheet.Pictures.Insert(myPath & 123.jpg),"")
.
.
.
.
End Sub

Q: How do I code in VBA to insert specific picture when conditions are
met? is it even possible?
if it is not, what is the best way to achieve the result that I am
looking for?

Thank you so much for your help.


--

Dave Peterson