使用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，Name：=“bkm1”。