Selection.InlineShapes (Word)

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

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