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 &&图片高  这两句不能达到要求。