Chart.Legend (Excel)

Devuelve un objeto Legend que representa la leyenda del gráfico.

Charts("Chart1").HasLegend = True 
Charts("Chart1").Legend.Font.ColorIndex = 5