Range.InlineShapes (Word)

Devuelve una colección InlineShapes que representa todos los objetos InlineShape de un intervalo.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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