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 并不是原图。
如保才能取得原图？

没找到，还望引导一下，多谢

不是。这些导出的图片也只是缩小的图。

如果有一百多张图一个文件，显然是不方便的