VBA Chart Help

[Spartan920]

Any help on this would be much appreciated.

I'd like to change the the color of the bar (meter) in my bar chart using VBA. The actual bar chart is located on "Sheet1" and I'd like to be able to change the color from cell "A3" in "Sheet2".

Please include the following colors as well:
Case "RED": .RGB = vbRed<o></o>
Case "YELLOW": .RGB =RGB(255, 255, 109)<o></o>
Case "GREEN": .RGB = RGB(41, 247, 46)<o></o>
Case "GREY": .RGB = RGB(127, 127, 127)

Here's the coding I'm using that didn't work.


Sub Chart1_Color()<o></o>
With Sheets("Sheet1").ChartObjects("Chart 1").Fill.Interior.Color<o></o>
Select Case UCase(Sheets("Sheet2").Range("A3").Value)<o></o>
Case "RED": .RGB = vbRed<o></o>
Case "YELLOW": .RGB =RGB(255, 255, 109)<o></o>
Case "GREEN": .RGB = RGB(41, 247, 46)<o></o>
Case "GREY": .RGB = RGB(127, 127, 127)<o></o>
End Select<o></o>
End With<o></o>
EndSub

Thanks

 

[Misca]

Try something like:

Sub Chart1_Color()
With Sheets("Sheet 1").ChartObjects(1).Chart.SeriesCollection(1).Format.Fill.ForeColor
    Select Case UCase(Sheets("Sheet 2").Range("A3").Value)
        Case "RED": .RGB = vbRed
        Case "YELLOW": .RGB = RGB(255, 255, 109)
        Case "GREEN": .RGB = RGB(41, 247, 46)
        Case "GREY": .RGB = RGB(127, 127, 127)
    End Select
End With
End Sub

 

[Spartan920]

Hi Misca, thanks for responding. I think you're onto something with the code, but it didn't work for me. It changed the chart area (background) itself, but not the actual bar inside the chart. Shouldn't there be something in the code that identifies the chart I'd like to referrence? I know I didn't include it in my original post, but the chart I'd like to change is "Chart 55". Does that matter any?

Thanks again for the help.