Field Property Example

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

Set iShape = _
    ActiveDocument.InlineShapes _
    .AddPicture(FileName:="C:\Windows\Tiles.bmp", _
    LinkToFile:=True, SaveWithDocument:=False, _
    Range:=Selection.Range)
MsgBox iShape.Field.Code.Text