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

私はちょうど同じ問題に遭遇し、次のコードを使用しました。 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