Range.InlineShapes (Word)

Gibt eine InlineShapes-Auflistung zurück, die alle InlineShape-Objekte in einem Bereich darstellt.

Informationen zum Zurückgeben eines einzelnen Elements einer Auflistung finden Sie unter zurückgeben eines Objekts aus einer Auflistung.

Set doc = ActiveDocument 
Msgbox "InlineShape = " & doc.InlineShapes.Count & _ 
 vbCr & "Shapes = " & doc.Shapes.Count