title: Copy-and-Paste Range from Excel 2016 into Outlook 2016 as Picture
body: <p>I am trying to paste an Excel range into the body of an Outlook e-mail as a picture using VBA. However, whenever I do so, the range gets cut off in the paste operation. The original range looks as follows:</p>
  
  <p><img src="https://i.stack.imgur.com/pLZIf.png" alt="Original Range"></p>
  
  <p>While the paste appears as follows:</p>
  
  <p><img src="https://i.stack.imgur.com/B3Uxm.png" alt="Pasted Image"></p>
  
  <p>I basically used <a href="https://stackoverflow.com/users/119775/jean-fran%C3%A7ois-corbett">Jean-François Corbett</a>'s VBA code shown at <a href="https://stackoverflow.com/questions/29092999/pasting-an-excel-range-into-an-email-as-a-picture">Pasting an Excel range into an email as a picture</a>. Namely:</p>
  
  <pre><code>Dim objOutlook As Object
  Dim objMail As Object
  
  Set objOutlook = CreateObject(Class:="Outlook.Application")
  Set objMail = objOutlook.CreateItem(0)
  
  'Copy range of interest
  Dim r As Range
  Set r = Range("B2:E14")
  r.Copy
  
  'Paste as picture in sheet and cut immediately
  Dim p As Picture
  Set p = ActiveSheet.Pictures.Paste
  p.Cut
  
  'Get its Word editor
  objMail.Display
  Dim wordDoc As Word.Document
  Set wordDoc = objMail.GetInspector.WordEditor
  
  'Paste picture
  wordDoc.Range.Paste
  </code></pre>
  
  <p>I know there are other code samples out there that do the paste as HTML (e.g., <a href="http://www.rondebruin.nl/win/s1/outlook/bmail2.htm" rel="nofollow noreferrer">by Ron de Bruin</a>), but that ends up pasting as a table for me (as opposed to as a picture). I've also seen examples where people paste into a chart, save the chart as a JPG, and insert that JPG into the HTMLBody of the e-mail (e.g., <a href="https://stackoverflow.com/questions/27042842/excel-2010-paste-range-and-picture-into-outlook">by Mike Marshall</a>), but that too gets cut off for me.</p>
  
  <p>Appreciate any insights people can share!</p>