Show image
 

Can anyone help me on this problem.

I want to show an image in the cell if the criteria is true.

e.g : if cell A1 = 10 them i want to show a smily face.

Can anyone help me on this.

Regards
-Chandran-



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Show image
 

You can make your picture visible or not.

Activesheet.shapes("Picture 1").Visible = True ' or False

The question is how cell A1 takes on the value 10. If it is through a
formula then you could put the above in a calculate event. If it is through
manually entry, then through the Change event.

I inserted a piece of clipart through the menu and it was named object 1.
when you insert it, look in the name box for the name.
ActiveSheet.shapes("Object 1").visible = True

if you need to insert it through code, turn on the macro recorder while you
do it manually to get the code.

--
Regards,
Tom Ogilvy


Chandran wrote in message
...
Can anyone help me on this problem.

I want to show an image in the cell if the criteria is true.

e.g : if cell A1 = 10 them i want to show a smily face.

Can anyone help me on this.

Regards
-Chandran-



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Show image
 

Since Smiley can be fond in the WingDings2 font set as character "J"
(capitalized),
why not try
=If(A1=10,"J","")
in an adjacent cell with font set to WingDings2?

Alex



"Tom Ogilvy" wrote in message
...
You can make your picture visible or not.

Activesheet.shapes("Picture 1").Visible = True ' or False

The question is how cell A1 takes on the value 10. If it is through a
formula then you could put the above in a calculate event. If it is
through
manually entry, then through the Change event.

I inserted a piece of clipart through the menu and it was named object 1.
when you insert it, look in the name box for the name.
ActiveSheet.shapes("Object 1").visible = True

if you need to insert it through code, turn on the macro recorder while
you
do it manually to get the code.

--
Regards,
Tom Ogilvy


Chandran wrote in message
...
Can anyone help me on this problem.

I want to show an image in the cell if the criteria is true.

e.g : if cell A1 = 10 them i want to show a smily face.

Can anyone help me on this.

Regards
-Chandran-



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from
http://www.ExcelForum.com/