ShapeRange.ConvertToInlineShape (Word)

Convertit la forme spécifiée de la couche de dessin d'un document en forme insérée dans la couche de texte.

Les formes qui prennent en charge le texte attaché ne peut pas être convertis en formes insérées. Si vous utilisez cette méthode sur un objet ShapeRange qui contient plusieurs formes, une erreur se produit.

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