Inserting an image

  • Thread starter Thread starter James8309
  • Start date Start date
J

James8309

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.
 
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
 
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

Hi All,
Click to expand...
I am trying to insert an image to Cell A1 to A3 if condition in Cell
B1 to B3 is met.
Click to expand...
1. Pictures are saved under C:\Documents\Pictures\
Click to expand...
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
Click to expand...
e.g. if cell B1 = "A" then insert 123.jpg in cell A1.
Click to expand...
Ive done this so far,
Click to expand...
Sub insert()
 Dim myPath As String
 Dim MyImage As String
   myPath = "C:\Documents\Pictures\"
Click to expand...
  Range("B1").Activate
  ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""A"",
Activesheet.Pictures.Insert(myPath & 123.jpg),"")
.
.
.
.
End Sub
Click to expand...
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?
Click to expand...
Thank you so much for your help.- Hide quoted text -
Click to expand...

- Show quoted text -
Click to expand...

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.
 
Lots of changes to be made if you want to use Bernie's code.

Change picture names, clear DV lists, re-define named ranges for cells and
ranges, change the code to reflect new placement of picture to right of A1:A3,
change the KeyCells range.

See how Bernie has defined the cells and ranges in Insert>Name>Define

I will try to run something up but will be a day or so. Too late tonight and
have a Golf Match tomorrow.

NOTE: if your values are really A, B or C you will run into defining a named
range for C.

Excel reserves that, along with R for R1C1 notation so cannot be used as a
defined name.


Gord
 
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 said:
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 said:
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.
Click to expand...
Click to expand...
 
Check your other post.
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 said:
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 said:
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.
Click to expand...
Click to expand...
Click to expand...
 
Back
Top