Selection.InlineShapes.AddPicture FileName:= _ "H:\My Documents\VBA\picture.jpg", LinkToFile:=False, _ SaveWithDocument:=True