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

过客fppt

1. Sub 将选中内容复制为图片()
   
2.         With Selection
   
3.             .CopyAsPicture
   
4.             .PasteSpecial DataType:=wdPasteMetafilePicture
   
5.         End With
   
6. End Sub
   

复制代码

大家好，上面的代码是我目前能够想到的方法，能将选中的区域复制为图片，但是公式前后会多出两段空白的地方，有没有什么方法做到像截图一样，只将选中的区域复制为图片呢

我想要的效果:

我想要的效果

代码复制出来的效果：

补充内容 (2023-8-22 21:41):
此问题只完成，效果展示在41楼中。

补充内容 (2023-8-23 15:40):
【今天终于实现了在WPS中大批量转换公式为图片-哔哩哔哩】 https://b23.tv/ngZzCCS

补充内容 (2023-8-29 17:28):
今天，是绝望的一天，公司的系统竟然连增强型图元都不能很好的支持！

补充内容 (2023-9-10 17:41):
今天，死灰复燃了，发现了一个用mathtype把EQ公式转化为LaTeX公式的方法

413191246se

复制后转换为文本框或图文框，是不是这样？楼主。

过客fppt

413191246se 发表于 2023-8-7 11:34
复制后转换为文本框或图文框，是不是这样？楼主。

不是，是复制后直接粘贴为图片，代替原来位置的域代码公式

loquat

自带的功能确实是这个效果，只能获取文本后用代码去画，然后插入。

413191246se

loquat 老师好！暑假好！楼主，复制后光标定于某处，选择性粘贴，可以以图片（文本框）呈现：
    Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False

zhanglei1371

需要借助于gdi，去除两边的空白部分。用.net相对好搞

过客fppt

413191246se 发表于 2023-8-13 21:24
loquat 老师好！暑假好！楼主，复制后光标定于某处，选择性粘贴，可以以图片（文本框）呈现：
    Selecti ...

谢谢 413191246se 老师，但是运行您的代码之后，生成的图片还是会有一部分空白的

过客fppt

loquat 发表于 2023-8-13 19:56
自带的功能确实是这个效果，只能获取文本后用代码去画，然后插入。

谢谢 loquat 老师，获取域代码的文本我知道，我也想过把域代码处理成Word自带公式，但是不知道如何操作，我经常要处理的是这种类型的公式的域代码，文件在附件中

过客fppt

zhanglei1371 发表于 2023-8-14 06:37
需要借助于gdi，去除两边的空白部分。用.net相对好搞

谢谢 zhanglei1371 老师，我是个新手，您说的gdi。.net我都不知道是什么，感觉太难了

batmanbbs

现在是公式字体设置多少磅就转多大的图片，但实际上OMath在WORD文档中排版时，公式字体会自动变化，目前还没有摸清楚WORD如何控制公式的大小的。

PS：一直不太明白楼主为什么非要转成图片呢，转成图片后公式就无法修改了。而且现在WORD公式支持强大的LaTeX格式，多好啊！