VBA：从Excel复制为图像并粘贴到Word中

Question

我从Excel复制一系列单元格作为图片，然后粘贴到单词文档中。它粘贴在文档的开头，我怎样才能将它粘贴到特定区域？该区域可以用一些文字表示，我稍后会找到/替换。

谢谢！

Range("A1:H5").Select 
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture 



Set objWord = CreateObject("Word.Application") 

Set objDoc = objWord.Documents.Open("MyFile.docx") 

objWord.Visible = True 

Set objSelection = objWord.Selection 

objSelection.Paste 


End Sub 

Answer 1

我刚刚遇到同样的问题，并使用下面的代码。我使用名为“here”的书签保存在我的Word文档中。 HTH，Mitch。

Dim WordApp As Word.Application 
Dim WordDoc As Word.Document 

Set WordApp = New Word.Application 
Set WordDoc = WordApp.Documents.Open("MyFile.docx") 

Range("A1:H5").Select 
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture 
WordApp.Visible = True 
WordApp.ActiveDocument.Bookmarks("here").Select 
Set objSelection = WordApp.Selection 
objSelection.Paste