>no this does not work,
>it still displays the picture but not at A5

What does your "does not work" mean exactly?
If you mean that when moving or resizing A5 cell your picture does not change its position or size, then:

    With oExcel.Activesheet.Pictures.Insert(GETFILE("jpg"))
        .Placement = xlMoveAndSize
    EndWith

Good Luck