Opgelost Kleuren legenda labels in draaigrafieken standaard/overeenkomstig maken

[Dogter]

Binnen 1 werkblad heb ik verschillende draaitabellen met -grafieken over bevindingen / bugs.
Excel geeft elke grafiek legenda zelf een kleur, maar ik wil graag dat deze tussen de verschillende grafieken overeenkomen.
Bv dat elke Severity: Blocking rood is, en elke Medium blauw.

Online heb ik veel gezocht naar de VBA oplossingen maar hier kom ik niet uit. Heeft iemand van jullie een werkend voorbeeld?

Dank!

 

[Dogter]

bijgevoegd een voorbeeld ter verduidelijking

 

[AHulpje]

Zoiets, starten vanaf werkblad Pivots:

Sub KleurLegenda()
    For Each objChart In ActiveSheet.ChartObjects
        objChart.Activate
        For i = 1 To ActiveChart.FullSeriesCollection.Count
            With ActiveChart.FullSeriesCollection(i).Format.Fill.ForeColor
                Select Case ActiveChart.FullSeriesCollection(i).Name
                    Case "Bepaal PRIO"
                        .RGB = RGB(255, 0, 0)
                    Case "Blocking"
                        .RGB = RGB(0, 255, 0)
                    Case "Critical"
                        .RGB = RGB(0, 0, 255)
                    Case "Major"
                        .RGB = RGB(125, 125, 0)
                    Case "Medium"
                        .RGB = RGB(0, 125, 125)
                    Case "Minor"
                        .RGB = RGB(125, 0, 125)
                End Select
            End With
        Next
    Next
End Sub

 

[Dogter]

Suuuper; heel veel dank!!