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.
Example
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