2017-03-31 235 views
0

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

谢谢!

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 
+0

对此的任何建议吗? – user7459948

回答

0

我刚刚遇到同样的问题,并使用下面的代码。我使用名为“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