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

时间:2018-07-05 21:53:55

标签: excel-vba bitmap ms-word paste vba

我有一个宏,可以在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部分是否允许粘贴位图?

0 个答案:

没有答案