Microsoft Office Forums - View Single Post - inserting an image at current position

Thread: inserting an image at current position

View Single Post

Old

03-20-2017, 07:16 AM

dwirony

dwirony is offline

dwirony uses Windows 7 64bit

Windows 7 64bit dwirony uses Office 2003

dwirony uses Office 2003

Office 2003

Advanced Beginner

Join Date: Oct 2016

Posts: 49

dwirony will become famous soon enough

Default

Try this instead:

Code:

Sub InsertPicture()
myperson = "john_doe"
myfile = "g:\office\files\" + myperson + ".bmp"
Selection.InlineShapes.AddPicture FileName:= _
        myfile, LinkToFile:=False, _
        SaveWithDocument:=True

End Sub

Although this may lose your wrap format. Is that something you need?

Reply With Quote