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)

© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext