title: Copy an Excel range and paste as an image in a Picture Content Control inside a Word doc using VBA
body: <p>I'm trying to copy a range from Excel and paste it as an image into Word at the body of each page. I am using a Picture Content Control to achieve this. There seems to be limited documentation to use this control. Please help.</p>
  
  <pre><code>Dim objWord, objDoc As Object, rng As Range, objCC As ContentControl
  Set rng = ThisWorkbook.Worksheets(strSheetName).Names(strSheetName &amp; "_Range").RefersToRange
  rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
  Set objWord = CreateObject("Word.Application")
  objWord.Visible = True
  Set objDoc = objWord.Documents.Open(ThisWorkbook.Path &amp; "\Template.docx")
  'Set objCC = objDoc.SelectContentControlsByTag("idControl1")(1)
  objDoc.PageSetup.Orientation = 1
  objWord.Selection.Paste
  objWord.Selection.TypeParagraph
  'objDoc.Save
  </code></pre>