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