Dynamische Kreisformen über VBA-Code mit jeweiliger Linienfarbe ausfüllen

Hallo zusammen,

ich hab da wieder ein Problem und zwar folgendes:

ich möchte gerne mehrere dynamische Kreisformen über einen VBA-Code farbig ausfüllen. Hab im Netz leider nichts Passendes gefunden.

Die Koordinaten der einzelnen Kreislinien sind mit Formeln hinterlegt:

Die graue und rote Kreisform sind vom Radius her fix. Nur die orangene Form ändert sich.

Ich hoffe, es war nicht allzu unverständlich dargestellt und dass ihr mir helfen könnt. =)

Gruß

Ikaner

Sub FormatChart()
    Dim c As ChartObject, ch As Chart
    With ActiveSheet
        'Auf das ChartObjekt im Sheet verweisen  
        Set c = .ChartObjects(1)
        Set ch = c.Chart
        ' Farbe der Linie des ersten Datensatzes ändern  
        ch.SeriesCollection(1).Format.Line.ForeColor.RGB = vbGreen
    End With
End Sub