In diesem Beispiel wird die Legende von Chart1 aktiviert. Anschließend wird dieser Legende die Farbe Blau zugewiesen.
With Charts("Chart1") .HasLegend = True .Legend.Font.ColorIndex = 5 End With