vfp 图片输出到EXCEL，图片大小排列不整齐，就是说不能缩小到表格框内
OLEAPP.cells.Rows(hanhao_0+i).RowHeight=50 &&设置当前活动格的高度file_bb2=pubshujuku+'myjpg\bhpict\'+alltrim(bianhao)+'\'+alltrim(pictur1)
if file(file_bb2)
oleapp.Cells(hanhao_0+i,8).select
oleApp.activesheet.Pictures.Insert(file_bb2).select
oleApp.selection.shaperange.WIDTH=49
oleApp.selection.shaperange.lockaspectratio=.t.
y=alltrim(str(hanhao_0+i))
oleApp.selection.shaperange.top=oleApp.range('h&y').top
oleApp.selection.shaperange.left=oleApp.range('h&y').left
oleApp.selection.shaperange.WIDTH=49
oleApp.Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 255, 255)
endif
上面的语句是不是少了什么，因为横向排列在框内，竖向又突出来，竖向在框内，横向又突出来，怎么调都不能使整个图放在EXCEL框内。看起来很不整齐。
