Show image

[Chandran]

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-

 

[Tom Ogilvy]

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.

 

[Alex@JPCS]

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

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.