| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 922 人关注过本帖
标题:请教 EXCEL表内的图片如何保存为原图。
只看楼主 加入收藏
liunis
Rank: 1
等 级:新手上路
帖 子:142
专家分:7
注 册:2021-9-25
结帖率:87.8%
收藏
已结贴  问题点数:10 回复次数:8 
请教 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 并不是原图。
如保才能取得原图?
搜索更多相关主题的帖子: 保存为 复制 EXCEL 图片 保存 
2023-01-31 13:01
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:3 
记得5年内论坛中曾经有朋友提过类似问题,自己找找

坚守VFP最后的阵地
2023-01-31 13:43
liunis
Rank: 1
等 级:新手上路
帖 子:142
专家分:7
注 册:2021-9-25
收藏
得分:0 
没找到,还望引导一下,多谢
2023-01-31 15:27
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 

坚守VFP最后的阵地
2023-01-31 16:09
liunis
Rank: 1
等 级:新手上路
帖 子:142
专家分:7
注 册:2021-9-25
收藏
得分:0 
不是。这些导出的图片也只是缩小的图。
2023-01-31 16:21
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:3 
有无原图直接解开文件(c:\1.xlsx)就知道
2023-01-31 21:06
igaoyuan
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:103
专家分:112
注 册:2022-12-19
收藏
得分:3 
回复 楼主 liunis
先排除原图是否已被压缩
右键点击图片.查看大小和属性
图片附件: 游客没有浏览图片的权限,请 登录注册
2023-01-31 21:37
liunis
Rank: 1
等 级:新手上路
帖 子:142
专家分:7
注 册:2021-9-25
收藏
得分:0 
如果有一百多张图一个文件,显然是不方便的
999.zip (793.1 KB)

2023-02-01 16:36
nbwww
Rank: 8Rank: 8
等 级:贵宾
威 望:11
帖 子:332
专家分:804
注 册:2021-1-9
收藏
得分:3 
XLSX 文件直接解压   xl\media  文件夹下面都在了  
2023-02-01 19:08
快速回复:请教 EXCEL表内的图片如何保存为原图。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017835 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved