HasLegend Property
True if the chart has a legend. Read/write Boolean.
Example
This example turns on the legend for Chart1 and then sets the legend font color to blue.
With Charts("Chart1")
.HasLegend = True
.Legend.Font.ColorIndex = 5
End With