Returns an InlineShapes collection that represents all the InlineShape objects in a document, range, or selection. Read-only.
For information about returning a single member of a collection, see Returning an Object from a Collection .
This example displays the number of shapes and inline shapes in the active document.
Set doc = ActiveDocument Msgbox "InlineShape = " & doc.InlineShapes.Count & _ vbCr & "Shapes = " & doc.Shapes.Count