CanvasShapes.Range (Word)
Gibt ein ShapeRange -Objekt zurück.
Zeichenpositionswerte beginnen am Anfang des Dokuments bei 0 (null). ShapeRange-Objekte umfassen keine InlineShape-Objekte. Die meisten Operationen, die Sie mit einem Shape-Objekt ausführen können, können Sie auch mit einem ShapeRange-Objekt durchführen, das eine einzige Form enthält.
Range (Index)
Index: Gibt an, welche Formen im angegebenen Bereich enthalten sein sollen.
Sub CanvasShapeRange()
Dim rngCanvasShapes As Range
Set rngCanvasShapes = ActiveDocument.Shapes(1).CanvasItems.Range(1)
rngCanvasShapes.Select
rngCanvasShapes.Delete
End Sub