On Jun 4, 1:55*am, Gord Dibben <gorddibbATshawDOTca wrote:
In addition to Norman's suggestion of John's lookuppics which is limited to one
picture at a time you could download Bernie Dietrick's sample workbook which
allows for more than one picture to be shown.

http://www.contextures.on.ca/excelfiles.html#DataVal

DV0049 - ClipArt Selection

Edit the code to suit.

Note: with either method the images must be stored on the worksheet.

Gord Dibben *MS Excel MVP

On Tue, 3 Jun 2008 00:04:57 -0700 (PDT), James8309
wrote:



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.- Hide quoted text -

- Show quoted text -

Thank you for your help.Now I am one step closer to what I want! :D

Those two links above definetely shines light on me however how do i
alter those codes to automate the picture inserting process in B1, B2
and B3 using the conditions in A1, A2 and A3 instead of using the
dropbox?


thanks again.