CanvasShapes.Range (Word)

Renvoie un objet ShapeRange.

Les valeurs de position des caractères commencent à 0 (zéro) au début du document. Objets ShapeRange ne comprennent pas les objets InlineShape. La plupart des opérations que vous pouvez faire avec un objet Shape peuvent également être effectuées avec un objet ShapeRange qui contienne une seule forme.

Range (Index)

Index: Spécifie quelles sont les formes à inclure dans la plage spécifiée.

Sub CanvasShapeRange() 
 Dim rngCanvasShapes As Range 
 Set rngCanvasShapes = ActiveDocument.Shapes(1).CanvasItems.Range(1) 
 rngCanvasShapes.Select 
 rngCanvasShapes.Delete 
End Sub