How do I change the color Excel Autoshape using VBA?

J

jmtricker

I'm trying to change the color of an Autoshape I've drawn on a spreadsheet
base on the value of a given cell. Can anybody help me?
 
C

Carlo

hi Jmtricker

how about something like this:

activesheet.shapes("yourshape").color = RGB(Cell1,Cell2,Cell3)

the name and the correct syntax for the shape i would lookup
with recording a macro and then putting it together.
Although when you record a macro, excel always uses select,
you can write it without the select.

If there is any problem you can also post the code the recorded
Macro and we can have a look at it.

hth

Carlo
 
N

Nick Hebb

Slight correction - the syntax is:

ActiveSheet.Shapes("yourshape").Fill.ForeColor.RGB = RGB(Cell1, Cell2,
Cell3)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Automatically Color Autoshape and Autoshape Naming 2
Need help modifying code 0
Match table shading (color) to Visio color/Transparency 1
Export autoshape as picture using VBA? (object doesn't support met 1
How do I name an autoshape so that I can refer to it in a macro? 3
Change color of Autoshape in chart 3
Insert Autoshapes in excel 2
Cell data based on autoshape color 2

Top