Excel VBA宏将图片作为位图粘贴到Word.dotm文件

我有一个宏，可以复制Excel中的一个部分，并将其粘贴到Word模板中。宏运行良好，只是CopyPicture分辨率较低，所以我需要将其粘贴为位图文件以满足文档质量要求。示例代码如下：

Set objWord = CreateObject("Word.Application")
objWord.Documents.Open "C:\Users\XXXX\Desktop\XXXEngine\Debug\Quote Doc (Production).dotm"

With objWord.ActiveDocument

objWord.Visible = True
ThisWorkbook.Sheets("TABLE OUTPUTS").Range("WORD_PREMIUM_SUMMARY").CopyPicture _
 Appearance:=xlScreen, Format:=xlPicture
.Bookmarks("WORD_PREMIUM_SUMMARY").Range.Paste

可以对CopyPicture进行哪些编辑_

---

外观：=xlScreen，格式：=xlPicture部分以允许位图粘贴？

您可以尝试

格式：=xlBitmap

您还应该查看Word的

PasteSpecial

-首先在UI中，然后将最有效的方法应用到您的代码中。Office以多种格式将信息放在剪贴板上；PasteSpecial允许您选择要使用的格式。这两个建议结合起来应该能够解决这个问题。谢谢你们两位的建议。。。我将尝试他们两人，看看他们是否解决了我的解决方案问题。