Chart.Legend (PowerPoint)

Returns the legend for the chart.

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