如何用VBA将Word文档中的域代码公式复制为图片，求大家指点

batmanbbs · 发表于 2023-8-31 18:41

zhanglei1371 发表于 2023-8-31 18:20
这个应该没问题吧

看图片放大后的效果不错，失真小。老师是使用纯VBA代码实现的吗？

zhanglei1371 · 发表于 2023-8-31 19:12

本帖最后由 zhanglei1371 于 2023-9-1 18:12 编辑

batmanbbs 发表于 2023-8-31 18:41
看图片放大后的效果不错，失真小。老师是使用纯VBA代码实现的吗？

vsto,做好了放插件里去。
不过二次粘贴法应该是最完美的

sylun · 发表于 2023-8-31 21:16

batmanbbs 发表于 2023-8-30 23:11
老师，通过这段代码又学习到不少新知识，谢谢！

经测试采用结合GETPOINT和截图两种方式处理转图的效果 ...

谢谢batmanbbs兄点评。其实我也知道处理效果很一般，只是想看看以另一个思路进行处理是否可行。由于对绘图不太了解，也可能有电脑上的问题，手法粗些。测试环境已在代码代码中标注，是没装MSOffice的纯WPS，VBA7.0环境，当时并无弹出截图工具浮窗，压缩图片是附加的，因是对话框代码，需要用到sendkeys语句。Win11下测试出错时就会弹出截图工具浮窗，也许是手提同时有MS VBA7.1和WPS VBA7.0之故吧，尚不清楚。
总的感觉，普通截图的效果有限，放大效果不理想，如放大后截图又可能导致区域溢屏。估计需用API函数等处理才较理想。至于提到插入点定位及sendkeys代码，只是根据我在两台电脑实测而写，不一定有普适性。

batmanbbs · 发表于 2023-8-31 22:39

sylun 发表于 2023-8-31 21:16
谢谢batmanbbs兄点评。其实我也知道处理效果很一般，只是想看看以另一个思路进行处理是否可行。由于对绘 ...

老师过谦了。刚刚学习vba哪里敢点评，只是就截图方式存在的问题请教而已。老师在论坛编写的代码学习很多，受益匪浅，特别是老师指出word本身存在的一些问题更让我印象深刻。

就楼主提出的转图问题，我用老师提出的getpoint和楼主尝试的information都可以完成转换，而且在word和WPS下都已成功。现在遇到的问题是通过word的copy和paste能够转图，但是图片是增强型图元，并不是位图，楼主的系统对图元支持很不友好。翻看了论坛的一些帖子，基本上都是通过gdi+在位图之间进行格式转换，没有将矢量图转成位图的案例（估计还得用api）。现在刚刚入门，连word vba的属性方法都没有了解清楚，api更加不要提了。

现在我采用的解决办法是对图片进行二次复制粘贴，word就可以将图元转成位图。2次操作虽然能够解决问题，但是效率比较低。zhanglei1371老师已通过vsto做到，但我还是希望能够通过vba代码实现一次完成，能做到吗？

batmanbbs · 发表于 2023-9-1 09:43

sylun 发表于 2023-8-31 21:16
谢谢batmanbbs兄点评。其实我也知道处理效果很一般，只是想看看以另一个思路进行处理是否可行。由于对绘 ...

此链接中的附件下载说压缩包错误，不知老师能够再重新提供一份。
https://club.excelhome.net/thread-232089-1-1.html?_dsign=f5837bb5

过客fppt · 发表于 2023-9-1 16:40

zhanglei1371 发表于 2023-8-31 18:20
这个应该没问题吧

还没做好...

非常感谢zhanglei1371老师的帮助，我最近在外地，等我回去之后我试一下效果，这个图片看起来效果应该挺不错的。

zhanglei1371 · 发表于 2023-9-1 18:20

过客fppt 发表于 2023-9-1 16:40
非常感谢zhanglei1371老师的帮助，我最近在外地，等我回去之后我试一下效果，这个图片看起来效果应该挺不 ...

看了batmanbbs兄的回复，二次粘贴法应该是最好的，第一遍转为图元文件，第二次再VBA复制粘贴一次就能转为高清的位图，我手动测试了下粘贴为png，清晰度非常好。

sylun · 发表于 2023-9-1 22:20

batmanbbs 发表于 2023-9-1 09:43
此链接中的附件下载说压缩包错误，不知老师能够再重新提供一份。
https://club.excelhome.net/thread-23 ...

查了一下，幸好还有保存，只是很久以前的帖子了，一般不会弄得那么复杂。

过客fppt · 发表于 2023-9-10 17:38

今天竟然在一个大神群里找到了一个新的方法，把用mathtype把EQ公式转化为LaTeX公式，上传到系统后效果挺好的，但由于上标不规范，需要先查找替换规范后才能用mathtype进行批量转化，这个部分我准备用VBA进行替换，同时感觉我对LaTeX公式的语法知道得太少了

chsevenfive · 发表于 2023-9-15 10:53

过客fppt 发表于 2023-9-10 17:38
今天竟然在一个大神群里找到了一个新的方法，把用mathtype把EQ公式转化为LaTeX公式，上传到系统后效果挺好 ...

你好写好的宏可以分享一下吗

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

[求助] 如何用VBA将Word文档中的域代码公式复制为图片，求大家指点

评分

评分