ShapeRange.CanvasItems (Word)

Retorna um objeto CanvasShapes que representa uma coleção de formas em uma tela de desenho.

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