See
http://office.microsoft.com/en-us/excel/HP011517241033.aspx?pid=CH062527721033and
http://www.classical-webdesigns.co.uk/resources/pixelinchconvert.html for conversion.
>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
> .shaperange.width = 6.50
> .placement = xlmove
> .shaperange.lockaspectratio = .f.
>endwith
>
>oexcel.activewindow.displaygridlines=.f.
>oexcel.Visible=.t.
>RELEASE oexcel
>
If it's not broken, fix it until it is.
My Blog