复制Excel范围并使用VBA在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什么：= wdGoToBookmark，名称：=“bkm1”。