使用 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 什么：=wdGoToBookmark，名称：="bkm1"。