Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro coding using GIF
I created a status report with the following outcomes in MS Excel:
Stat(Column A3) = 0 Not Started (Blue Color) Stat = 1 On track (Green Color) Stat =2 Slightly behind (Yellow color) Stat = 3 Needs Immediate attention (Red Color) I used the following equation: =If (A3=0,"BLUE",IF(A3=<=1,"GREEN",IF(A3<=2,"YELLOW", IF A3=3,"RED","")))) This works fine. However, Instead of having A3 field colored, I want to use picture that has the color instead. I tried to use a macro to do just that am having problem. Here is what I want to similar meaning to the below statement in Macro =If (A3=0,"lightblue.gif",IF(A3=<=1,"lightgreen.gif",I F(A3<=2,"lightyellow.gif", IF A3=3,"lightred.gif","")))) I would appreciate anybody's assistant. Thank you. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro coding using GIF
Drop an Image control (from the Controls command bar) to the desired
location on the worksheet, then use code like Sub InsertPicture() Const RED_PIC = "C:\Whatever\Red.gif" Const BLUE_PIC = "C:\Whatever\Blue.gif" Const GREEN_PIC = "C:\Whatever\Green.gif" Dim ImageFileName As String With Worksheets("Sheet2") If .Range("A3").Value <= 1 Then ImageFileName = RED_PIC ElseIf Range("A3").Value <= 3 Then ImageFileName = BLUE_PIC ElseIf Range("A3").Value <= 5 Then ImageFileName = GREEN_PIC End If .OLEObjects("Image1").Object.Picture = _ LoadPicture(ImageFileName) End With End Sub -- Cordially, Chip Pearson Microsoft MVP - Excel, 10 Years Pearson Software Consulting www.cpearson.com (email on the web site) "kami" wrote in message ... I created a status report with the following outcomes in MS Excel: Stat(Column A3) = 0 Not Started (Blue Color) Stat = 1 On track (Green Color) Stat =2 Slightly behind (Yellow color) Stat = 3 Needs Immediate attention (Red Color) I used the following equation: =If (A3=0,"BLUE",IF(A3=<=1,"GREEN",IF(A3<=2,"YELLOW", IF A3=3,"RED","")))) This works fine. However, Instead of having A3 field colored, I want to use picture that has the color instead. I tried to use a macro to do just that am having problem. Here is what I want to similar meaning to the below statement in Macro =If (A3=0,"lightblue.gif",IF(A3=<=1,"lightgreen.gif",I F(A3<=2,"lightyellow.gif", IF A3=3,"lightred.gif","")))) I would appreciate anybody's assistant. Thank you. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
HELP - coding on Macro! | Excel Worksheet Functions | |||
Implant macro coding into ASP coding | Excel Programming | |||
Need VB Coding Help for a Macro | Excel Programming | |||
Need VB Coding Help for a Macro | Excel Programming | |||
macro coding | Excel Programming |