Thread: Color Combo box for a Bar Graph

Here is the basic approach. I've put the code into a standard module, though it could just as well be run in the worksheet_change event.

Option Explicit

Sub Change_Chart_Series_Color()

    Dim icolor As Integer
    Dim Bar As ChartObject

    Select Case Range("E1").Value 'cell linked to combo box
        Case 1: icolor = 3 'red
        Case 2: icolor = 6 ' yellow
        Case 3: icolor = 41 ' blue
    End Select
    
    For Each Bar In ActiveSheet.ChartObjects
        If Bar.Chart.ChartType = xlColumnClustered Then
            Bar.Chart.SeriesCollection(1).Interior.ColorIndex = icolor
        End If
    Next Bar

End Sub

For more help, search the Forum using terms like Conditionally Color Chart Series

Thanks Palmetto.You still honoring your title.