Chart.HasLegend (PowerPoint)

True se o gráfico tem uma legenda. Boolean de leitura/gravação.

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