Farbdefinition für gesamtes Diagramm Excel 2010 VBA

Hallo zusammen,

ich muss per VBA sämtlichen Texten eine neue Farbe geben. Wenn ich den Vorgang aufnehme, dann spuckt mir Excel folgendes aus:

    With ActiveSheet.Shapes(„Diagramm 18“).Chart.TextFrame2.TextRange.Font
        .BaselineOffset = 0
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(51, 51, 51)
        .Fill.Transparency = 0
        .Fill.Solid
    End With

Das ist schön, wenn ich das ganze dann aber ausführe, meckert VBA, dass das Objekt die Methode/Eigenschaft nicht unterstützt. Aha - ich versehe es nicht.

Hat einer von euch eine Ahnung, wie ich den Code anpassen muss?

Grüße und Dank