Show image

  • Thread starter Thread starter Chandran
  • Start date Start date
C

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-
 
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.
 
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 said:
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.
Click to expand...
 
Back
Top