this is my code

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