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

记得5年内论坛中曾经有朋友提过类似问题，自己找找

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

看看是不是楼主需要的结果
https://bbs.bccn.net/viewthread.php?tid=496028&highlight=%CD%BC%C6%AC%2BEXCEL

https://bbs.bccn.net/viewthread.php?tid=477910&highlight=%CD%BC%C6%AC%2BEXCEL

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

有无原图直接解开文件（c:\1.xlsx）就知道

先排除原图是否已被压缩
右键点击图片.查看大小和属性

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

XLSX 文件直接解压   xl\media  文件夹下面都在了