Chart.Legend (PowerPoint)

Retorna a legenda do gráfico. Somente leitura legenda.

Dim lgnLegend As Legend
Set lgnLegend = ActivePresentation.Slides(1).Shapes(1).Chart.Legend