ShapeRange.ConvertToInlineShape (Word)

Convierte la forma especificada en la capa de dibujo de un documento en una forma integrada en la capa de texto.

Las formas que admiten texto adjunto no se puede convertir en formas entre líneas. Si se utiliza este método en un objeto ShapeRange que contiene más de una forma, se produce un error.

For Each s In Documents("MyDoc.doc").Shapes 
 If s.Type = msoPicture Then 
 s.ConvertToInlineShape 
 End If 
Next s