请教 EXCEL表内的图片如何保存为原图。

eole888=CREATEOBJECT('Excel.application')                 
eole888.Workbooks.add                                    
eole888.Worksheets("sheet1").Activate                       
eole888.Workbooks.Open('c:\1.xlsx')                     
 
FOR EACH oShape IN EOLE888.ActiveSheet.Shapes
oShape.CopyPicture  &&将所选对象作为图片复制到剪贴板

发现保存出来的图片只有几K 并不是原图。
如保才能取得原图？