Chart.Shapes (PowerPoint)

Returns a collection that represents all the shapes on the chart sheet.

Dim shpsShapes As Shapes
Set shpsShapes = ActiveWindow.RangeFromPoint.Chart.Shapes