导出高质量图片 (Shapes到图片)

perfect131 · 发表于 2022-12-1 18:09

本帖最后由 perfect131 于 2022-12-1 19:18 编辑

         最近写了一个 Crop 图片等份切割的帖子，有人问图片如何另存为，一开始以为 zip 方式提取 media 路径里面的就可以，没想到这路行不通（zip方式也不支持xls)
         https://club.excelhome.net/thread-1647569-1-1.html
导出图片的方法很多：
         ChartObjects 法
         另存为 htm 法：可以全部导出，图片质量很好，手动整理

         API + GUID 法：图片质量一般，Shapes.CopyPicture ，再从剪切板获取图片
         39 楼：https://club.excelhome.net/forum ... 997609&pid=10965528
         复制到 word ppt 另存法等
另存为 htm 法（原本需要手动整理），这里用代码另存为 htm 文件再整理，实现了一键完成
最终会得到：工作簿名称 & 临时新文件夹，这个文件夹里再新建每个sheet 命名的（前提是工作表有图片) 文件夹
每个 sheet 命名的文件夹存放工作表里面的图片，图片名按 Shapes名称命名，后缀 png
Shapes type 我只判断了 11 和  13 ，没判断 7
我发现 htm文件多了很多 _x????_  ucs-2 原本是空格，要是 htm 文件内容正常显示就好了，请大神们抽空看看

morpheus126 · 发表于 2022-12-2 11:00

每天理解，我看另存为html（手工）之后，图片文件名好像没什么规律的。。。不知道可否点拨一下，谢谢

perfect131 · 发表于 2022-12-2 11:07

morpheus126 发表于 2022-12-2 11:00
每天理解，我看另存为html（手工）之后，图片文件名好像没什么规律的。。。不知道可否点拨一下，谢谢

有的，你另存为htm，看看sheet001.htm...sheet002.htm 的内容还有 tabstrip.htm 的内容，我是按这个整理的

考试加油站 · 发表于 2022-12-2 12:42

这种导出图片的方法第一次看到，不错。

aman1516 · 发表于 2022-12-2 13:11

本帖最后由 aman1516 于 2022-12-2 13:12 编辑

一步步钻研，值得学习！

能否导出的图片名称就是工作表里面的图片名称

aman1516 · 发表于 2022-12-2 13:26

回到图片切割那块，通过补偿误差，好像仍无法做到完全“无缝”切割，
不知能否通过图片像素级的分割重建，实现真正的无缝切割呢

perfect131 · 发表于 2022-12-2 13:34

aman1516 发表于 2022-12-2 13:26
回到图片切割那块，通过补偿误差，好像仍无法做到完全“无缝”切割，
不知能否通过图片像素级的分割重建， ...

是的，每次粘贴的图片缩放高宽略有不同，应该用统一图片缩放高宽就可以解决，还没验证

perfect131 · 发表于 2022-12-2 13:35

aman1516 发表于 2022-12-2 13:11
一步步钻研，值得学习！

图片名称？？不就是Shapes名称？

lizhipei78 · 发表于 2024-5-25 09:28

学习了，谢谢分享

bluesky_0 · 发表于 2024-5-25 11:00

参考我的帖子:
解决VBA保存EXCEL里的图片不清晰,且按照指定名称保存
https://club.excelhome.net/thread-1693147-1-1.html

		自动登录	找回密码
密码			免费注册

[分享] 导出高质量图片 (Shapes到图片)

评分