ShapeRange.CanvasItems (Word)

Returns a CanvasShapes object that represents a collection of shapes in a drawing canvas.

Dim sre As ShapeRange: Set sre =  
Dim cssCanvasItems As CanvasShapes
Set cssCanvasItems = sre.CanvasItems