Change Font Colour in Autoshape

**Tellm** · 06-15-2010, 01:43 PM

I am looking for a solution to change the colour of the font within an Autoshape rectangle depending on the value of a cell (BN1).

There are 4 options and I require the colours to change to Dark Green, Red, Yellow and Blue.

Any help would be appreciated

**contaminated** · 06-15-2010, 02:08 PM

Try below Code

Please Login or Register  to view this content.

How to use:

Copy above code.
Right Click to the sheet and select View Code
Paste code into the right pane.
Press Alt + Q to close the VBE.
Save workbook before any other changes.

**Tellm** · 06-15-2010, 04:31 PM

Vusal

Many thanks for getting back so quick. The solution you have provided on your file is exactly what I need however, I have put it into my sheet and it isn't working. Is it because I have 3 other Text boxes/Rectangles on the worksheet? I have changed the cell A1to BN1 which is the cell it needs to reference to. The textbox number that I need the change to happen to is 15, if this helps?

Regards

**Tellm** · 06-16-2010, 02:16 PM

Vasul

One more question - where do you get the colour numbers from?

**contaminated** · 06-17-2010, 05:34 PM

Record some macro, and color cell A1 in red, A2 in Green etc. After you've finished, press stop recording button and press alt + F11 to view recorded macro. There you'll see module1. Double click on it and you'll be able to observe recocded macro.
For each cell recorded macro should look like this

Please Login or Register  to view this content.

**Tellm** · 06-18-2010, 12:27 AM

Vusal

Again thanks for this information, I appreciate your time and effort.

Are you able to determine as to why I cannot get your code to work for changing the autoshape?