title: VBA Copy and Paste Table as Picture from Excel to Word using Content Controls
body: <p>The following VBA code copies from excel a named range for a table as a picture and paste it into a word document as a picture using content controls. The content control name is the same as the named range in excel. The following snippet of code works. </p>
  
  <p>Is there a way to make this code faster or more efficient?  </p>
  
  <pre><code>Set tTable = Range(CCtrl.Title)
  tTable.CopyPicture Appearance:=xlScreen, Format:=xlPicture
  
  Set wdbmRange = wdDoc.ContentControls(CCtrl.ID)
  If Occ.Type = wdContentControlPicture Then
      If Occ.Range.InlineShapes.Count &gt; 0 Then Occ.Range.InlineShapes(1).Delete
      wdDoc.ContentControls(CCtrl.ID).Range.Paste    
  </code></pre>