InlineShapes Property 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