VBA: Betinget formatering på alle diagrammer på ActiveSheet

Jeg fandt selv en løsning:

Sub BetingetFormateringDiagram()

    Dim rPatterns As Range
    Dim iPattern As Long
    Dim vPatterns As Variant
    Dim iPoint As Long
    Dim vValues As Variant
    Dim rValue As Range
    Dim sht As Worksheet
    Dim CurrentSheet As Worksheet
    Dim cht As ChartObject
   
        Application.ScreenUpdating = False
        Application.EnableEvents = False
       
        Set CurrentSheet = ActiveSheet
       
          For Each cht In ActiveSheet.ChartObjects
            cht.Activate
                Set rPatterns = ActiveSheet.Range("A1:A4")
                    vPatterns = rPatterns.Value
                With ActiveChart.SeriesCollection(1)
                    vValues = .Values
                   
                  For iPoint = 1 To UBound(vValues)
                    For iPattern = 1 To UBound(vPatterns)
                      If vValues(iPoint) <= 0 Then
                        .Points(iPoint).Format.Fill.ForeColor.RGB = RGB(185, 59, 0)
                        .Points(iPoint).Format.Fill.BackColor.RGB = RGB(255, 0, 0)
                        .Points(iPoint).Format.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=2
                      Else
                        .Points(iPoint).Format.Fill.ForeColor.RGB = RGB(33, 166, 30)
                        .Points(iPoint).Format.Fill.BackColor.RGB = RGB(0, 255, 0)
                        .Points(iPoint).Format.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
                      End If
                    Next
                  Next
                End With
          Next cht
       
        Application.EnableEvents = True

End Sub