使用VBA复制Excel范围并将其作为图像粘贴到Word文档内的图片内容控件中

Question

我正在尝试从Excel复制一个范围，并将其作为图像粘贴到Word的每页正文中。 我正在使用图片内容控件来实现此目的。 使用此控件的文档似乎很有限。 请帮忙。

Dim objWord, objDoc As Object, rng As Range, objCC As ContentControl
Set rng = ThisWorkbook.Worksheets(strSheetName).Names(strSheetName & "_Range").RefersToRange
rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\Template.docx")
'Set objCC = objDoc.SelectContentControlsByTag("idControl1")(1)
objDoc.PageSetup.Orientation = 1
objWord.Selection.Paste
objWord.Selection.TypeParagraph
'objDoc.Save

Answer 1

另外，我尝试使用书签，它们可以工作。 从http://www.ozgrid.com/forum/showthread.php?t=160430获得了建议。 我将此行添加到我的代码objWord.Selection.Goto What：= wdGoToBookmark，名称：=“ bkm1”。