title: How to send a shape object from Excel in the body of an Email?
body: <p>I'm struggling with this one (seemingly) simple step in a macro I'm trying to write. I have a Excel shape object that I'm trying to copy then paste into an outlook mail item. The shape object is actually a product of using Excel's "camera tool." What I did was created a chart that I need to flip 90 degrees for viewing. The camera tool makes that simple. The only problem I have is now pasting this picture shape into the outlook item. Suggestions?</p>
  
  <p>Here's my code so far:</p>
  
  <pre><code>Sub emailer()
  
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim p As Shape
  Dim o As Outlook.Application
  Dim om As Outlook.MailItem
  Dim rec As Outlook.Recipient
  Dim recs As Outlook.Recipients
  
  'create the outlook session
  Set o = CreateObject("Outlook.Application")
  'create the message
  Set om = o.CreateItem(olMailItem)
  Set recs = om.Recipients
  Set rec = recs.Add("email@email.com")
  rec.Type = 1
  
  Set wb = ActiveWorkbook
  Set ws = ActiveWorkbook.Worksheets("Chart_Pic")
  
  Set p = ws.Shapes("Picture 2")
  p.CopyPicture
  
  
  With om
  .SentOnBehalfOfName = "email@email.com"
  .Subject = "Subject"
  .HTMLBody = "This is a test" &amp; vbCrLf &amp; vbCrLf &amp; [where I want the shape to go]
  
  
  For Each rec In om.Recipients
  rec.Resolve
  Next
  
  om.Send
  
  End With
  
  Set o = Nothing
  </code></pre>