Dear Experts

From VFP To EXCEL: To insert a picture I use folloiwng procedure.
The picture insert correctly but my given size is changesd.
I enterd
.shaperange.height =3.48 && inches
.shaperange.width = 6.50 && inches
but in excel, it displays
.shaperange.height =0.05
.shaperange.width = 0.09

How to show picture with given size in inches?

Please help

#define xlmove 2
public oexcel as excel.application
oexcel = createobject([Excel.Application])
oexcel.workbooks.add()

ppicture=addbs(sys(5)) + addbs(sys(2003)) + [Cheque\] + allt('acbl.bmp')
oexcel.activesheet.pictures.insert(ppicture).select
with oexcel.selection
	.shaperange.height =3.48 && inches
	.shaperange.width = 6.50 && inches
	.placement = xlmove
	.shaperange.lockaspectratio = .f.
endwith

oexcel.activewindow.displaygridlines=.f.
oexcel.Visible=.t.
RELEASE oexcel