Chart.Shapes (Word)

Returns a collection that represents all the shapes on the chart sheet. Read-only Shapes.

Dim shpsShapes As Shapes
Set shpsShapes = ActiveDocument.Background.Chart.Shapes