New Method Example

This example inserts a new, empty picture in the active document and applies a shadow border around the picture.

Set myPic = ActiveDocument.InlineShapes.New(Range:=Selection.Range)
myPic.Borders.Shadow = True
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False