InlineShapes.New (Word)

Inserts an empty, 1-inch-square Word picture object surrounded by a border. This method returns the new graphic as an InlineShape object.

New (Range)

Range: The location of the new graphic.

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