Chart.Legend (Excel)

Retorna um objeto Legend que representa a legenda do gráfico. Somente leitura.

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