oleapp.Cells(hanhao_0+i,2).select
oleApp.activesheet.Pictures.Insert(file_bb2).select
oleApp.selection.shaperange.WIDTH=90
oleApp.selection.shaperange.lockaspectratio=.t.
y=alltrim(str(hanhao_0+i))
oleApp.selection.shaperange.top=oleApp.range('b&y').top
oleApp.selection.shaperange.left=oleApp.range('b&y').left
oleApp.selection.shaperange.WIDTH=90 &&图片宽
oleApp.selection.shaperange.height=70 &&图片高
oleApp.Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 255, 255)

&&如何锁定宽和高 比如90*70 ，意思是说输出EXCEL的图片 按 90*70 填充 ，锁定宽高为90*70

oleApp.selection.shaperange.WIDTH=90 &&图片宽
oleApp.selection.shaperange.height=70 &&图片高  这两句不能达到要求。

oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = .F.
oExcel.WorkBooks.Add
oExcel.ActiveSheet.Pictures.Insert("C:\TEMP\test.bmp").Select
oExcel.Selection.ShapeRange.LockAspectRatio = -1
oExcel.Selection.ShapeRange.Width = 90
**oExcel.Selection.ShapeRange.Height = 70
oExcel.ActiveWorkBook.SaveAs("C:\TEMP\test.xls", 43)
oExcel.ActiveWorkBook.Saved = .T.
oExcel.WorkBooks.Close
oExcel.Quit

bc不错