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

ssq1109

我想在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

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

ssq1109

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

ljchb

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

调用的什么外部命令呢？