Same color for same category for stacked column chart and formatting data labels together

[naveyafluz]

I have been trying for the whole day, but I am not able to solve my problems. Appreciate some excel experts out there who have faced such issue before and found solutions to it.

As the pic above, I would like my chart to show similar models to be the same color, but I believe it's restricted by Step. For example there is Operator 2 and Operator 3 are working on Mix Model Ion Optic, I would like Mix Model Ion Optic to be in all green instead of 6 different colors. Is it possible?

Also, is possible to change the Data Labels all at once? I can display it all at once, but when I want to change all the labels to show series name, I can only do it one by one.

 

[naveyafluz]

This will be the chart I would like to have.

 

[Sanjeev1976]

Select the chart and run the below macro :

Sub style_chart()

    Dim cht As Chart
    Dim ser As Series

    Set cht = ActiveChart

    With cht

        For i = .SeriesCollection.Count To 1 Step -1
            
            Set ser = .SeriesCollection(i)

            If ser.Name = "7500+ Ion optic" Then
                ser.Format.Fill.ForeColor.RGB = RGB(67, 92, 239)
            ElseIf ser.Name = "Mix Model Ion Optic" Then
                ser.Format.Fill.ForeColor.RGB = RGB(255, 255, 102)
            ElseIf ser.Name = "Q2 7500+" Then
                ser.Format.Fill.ForeColor.RGB = RGB(178, 178, 178)
            ElseIf ser.Name = "Q2 Mix model" Then
                ser.Format.Fill.ForeColor.RGB = RGB(51, 204, 51)
            End If

        Next i
    
    End With

End Sub

 

[naveyafluz]

Select the chart and run the below macro :

Sub style_chart()

    Dim cht As Chart
    Dim ser As Series

    Set cht = ActiveChart

    With cht

        For i = .SeriesCollection.Count To 1 Step -1
           
            Set ser = .SeriesCollection(i)

            If ser.Name = "7500+ Ion optic" Then
                ser.Format.Fill.ForeColor.RGB = RGB(67, 92, 239)
            ElseIf ser.Name = "Mix Model Ion Optic" Then
                ser.Format.Fill.ForeColor.RGB = RGB(255, 255, 102)
            ElseIf ser.Name = "Q2 7500+" Then
                ser.Format.Fill.ForeColor.RGB = RGB(178, 178, 178)
            ElseIf ser.Name = "Q2 Mix model" Then
                ser.Format.Fill.ForeColor.RGB = RGB(51, 204, 51)
            End If

        Next i
   
    End With

End Sub

View attachment 114913

It works totally! Thanks for the great help.

Now I only left to solve the Data Labels issue.