oSheet.Range("A3").Select() * AddPicture(Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height) oSheet.Shapes.AddPicture(lcPictureName, .F., .T., 0, 0, 100, 100)