Скопируйте диапазон Excel и вставьте как изображение в элемент управления контентом изображения внутри документа Word с помощью VBA

Question

Я пытаюсь скопировать диапазон из Excel и вставить его как изображение в Word в теле каждой страницы. Для этого я использую Picture Content Control. Кажется, существует ограниченная документация для использования этого элемента управления. Пожалуйста помоги.

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, Name: = "bkm1".