怎样用VBA将Word文档中一选中的插图另存为JPG格式文件

ssq1109 · 发表于 2020-10-30 15:07

我想在Word文档中随便选中一个插图，想用VBA先将其剪切到剪切板中，再将剪切板的图像另存为指定的JPG（PNG也行）格式的文件。该怎么做？
我做的代码可将插图存为EMF格式，但不知怎么存为JPG或PNG格式。

Sub 删图并存为EMF()

If Dir("D:\AA.jpg") <> "" Then Kill "D:\AA.jpg"
Set ImageStream = CreateObject("ADODB.Stream")
Selection.Cut
With ImageStream
.Type = 1
.Open
.Write Selection.Range.EnhMetaFileBits
.SaveToFile "D:\AA.emf"
.Close
End With
Set ImageStream = Nothing
End Sub

zhanglei1371 · 发表于 2020-10-30 18:11

看我的得意代码作品，里面有api

ssq1109 · 发表于 2020-10-31 08:47

本帖最后由 ssq1109 于 2020-10-31 12:45 编辑

其实我的代码是最佳方案，因转出的源图是矢量图转出来非常清晰，我对比了在Word中直接将矢量图另存为JPG或PNG格式的图，都很模糊。我已通过shell调用外部命令解决了。

ljchb · 发表于 2023-3-19 12:13

ssq1109 发表于 2020-10-31 08:47
其实我的代码是最佳方案，因转出的源图是矢量图转出来非常清晰，我对比了在Word中直接将矢量图另存为JPG或P ...

调用的什么外部命令呢？

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

[求助] 怎样用VBA将Word文档中一选中的插图另存为JPG格式文件