InlineShapes.New (Word)

Cette méthode montre comment insérer une image Word vide, d'environ 2,5 centimètres carrés, entourée d'une bordure.

New (Range)

Range: Emplacement du nouveau graphisme.

Dim ishapeNew As InlineShape 
 
Set ishapeNew = _ 
 ActiveDocument.InlineShapes.New(Range:=Selection.Range) 
 
ishapeNew.Borders.Shadow = True 
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False