Inserts an empty, 1-inch-square Word picture object surrounded by a border. This method returns the new graphic as an InlineShape object.
expression.New(Range)
expression Required. An expression that returns an InlineShapes object.
Range Required Range object. The location of the new graphic.
Example
This example inserts a new, empty picture in the active document and applies a shadow border around the picture.
Dim ishapeNew As InlineShape
Set ishapeNew = _
ActiveDocument.InlineShapes.New(Range:=Selection.Range)
ishapeNew.Borders.Shadow = True
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False