Chart.HasLegend (PowerPoint)

True if the chart has a legend.

ActivePresentation.Slides(1).Shapes(1).Chart.HasLegend = True