Inserting Graphics

This example inserts a graphic as an inline shape (using an INCLUDEPICTURE field) and then displays the shape's field code.

Dim iShapeNew As InlineShape 
Set iShapeNew = ActiveDocument.InlineShapes.AddPicture(FileName:="C:\Windows\Tiles.bmp", _ 
                                                       LinkToFile:=True, _ 
                                                       SaveWithDocument:=False, _ 
                                                       Range:=Selection.Range) 

Call MsgBox (iShapeNew.Field.Code.Text)