Try

oSheet.Range("A5").Select
oPic = oSheet.Pictures.Insert(GETFILE("jpg"))
oPic.Height = 100

>
>tmpsheet=Getobject('','excel.sheet')
>xlapp=tmpsheet.Application
>xlapp.Visible=.T.
>xlapp.workbooks.Open(Fullpath(filename_))
>bcsheet=xlapp.activesheet
>
>** some code **
>
>Lpicture=('\büro\bmp\'+alltrim(model)+'.jpg')
>
>bcsheet.Range(A5).Select
>
>bcsheet.PictureS.Insert(Lpicture).Select
>
>
>*******************************
>
>my problems are
>
>1, the picture gets inserted but not at A5,
>2, how do i resize the picture
>
>thanks