What is your Excel version, BTW?

>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
>