用宏将word另存为图片

o0star0o · 发表于 2018-6-24 14:51

之前loquat发了个帖子好像可以实现，不过我不太会宏，参考链接：http://club.excelhome.net/thread-1325874-1-1.html

想在word弄和宏，点击一下，将word内容（50%内内容）另存为jpeg，路径为当前word文档路径，命名为“（一半内容）+当前文档名称”.jpeg

请问有大神能实现吗？我翻遍了整个EH以及百度，都没找到相关研究

loquat · 发表于 2018-6-24 17:28

本帖最后由 loquat 于 2018-6-24 17:36 编辑

不光包含文档转图片，还涉及图片拼接
后者还是略有点麻烦的不过搜一下已有代码，还是可以做的

另外，手动也可以
word另存pdf
用工具：pdf转图片
用工具：图片再合并pdf

loquat · 发表于 2018-6-24 17:48

代码实现思路：
1、循环在UserForm上添加Image控件插入图片，插入完后通过UserForm.Picture得到StdPicture对象
然后就不用我说了
2、使用WIA.ImageFile当做画板，循环插入图片，最后用ImageFile类的SaveFile方法
这个方法可以玩一玩，但是有限制
3、还有就是深入了解图片结构，直接在二进制层面解析图片和拼接图片，配合内存映射

综上，普通屌丝就用方法1就好了

o0star0o · 发表于 2018-6-24 18:29

loquat 发表于 2018-6-24 17:48
代码实现思路：
1、循环在UserForm上添加Image控件插入图片，插入完后通过UserForm.Picture得到StdPicture ...

好高深大哥，懂的人应该能看到，能直接给我下代码吗？我不懂这个/笑哭，万方感谢！

zhanglei1371 · 发表于 2018-6-24 21:35

loquat 发表于 2018-6-24 17:48
代码实现思路：
1、循环在UserForm上添加Image控件插入图片，插入完后通过UserForm.Picture得到StdPicture ...

lz已经说了不懂宏，那就意味着更不懂vba了，而下面的三种屌的境界，都是需要懂了vba后才能触及的，这不明摆着是给lz花了个大饼吗，哈哈哈哈哈哈……

loquat · 发表于 2018-6-24 23:23

哦呵，白装了个X

o0star0o · 发表于 2018-6-27 23:00

顶下，等大神出现

daibao88 · 发表于 2018-6-28 11:44

vba 复制图片格式 SendKeys 图板
vba 复制图片格式 ppt或excel，再导出
vba 复制图片格式 API

o0star0o · 发表于 2018-7-1 23:36

daibao88 发表于 2018-6-28 11:44
vba 复制图片格式 SendKeys 图板
vba 复制图片格式 ppt或excel，再导出
vba 复制图片格式 API

大神，可以实现哇？我传了个附件，您看您说的这个实现方式把代码加写上下可以吗？麻烦您了！

测试word.zip (11.24 KB, 下载次数: 11)

o0star0o · 发表于 2018-7-19 00:07

顶下，就是这个思路：
1求先将word删除后面50%的字符，2然后将word缩小（按ctrl+鼠标滚轮）缩小至指定分辨率，3最后截图屏幕（word部分）
有能实现的可以付费，请小窗我

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

[求助] 用宏将word另存为图片

最新热点 /1