#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