Range.InlineShapes (Word)

Returns an InlineShapes collection that represents all the InlineShape objects in a range.

For information about returning a single member of a collection, see Returning an object from a collection.

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