Inserting an image

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

 

[Norman Jones]

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

 

[Gord Dibben]

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

 

[James8309]

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,

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!

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.

 

[Gord Dibben]

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

 

[Danny]

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

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

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]

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

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

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.