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