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