title: How to copy text and charts in an Excel sheet to Outlook body?
body: <p>I am trying to copy text (Constant Range of Cells) and charts in an excel sheet to an outlook body, however so far I succeeded in copying only charts but not text. I want to know the best way to copy both text (in the selected range) and charts from excel sheet to outlook message. Below is the code I am using now. This code does paste the text but charts are overlapped on the text (when charts are pasted in the email body). I would like to how can I format the outlook email and paste the text and charts without overlapping.</p>
  
  <pre><code>Sub email_Charts(sFileName, Subject1)
  Dim r As Integer
  Dim o As Outlook.Application
  Dim m As Outlook.MailItem
  Dim wEditor As Word.Document
  Set o = New Outlook.Application
  Dim olTo As String
  
  Windows("Daily_Status_Macro_Ver3.0.xlsm").Activate
  Sheets("Main").Select
  olTo = Worksheets("Main").Cells(3, 3).Value
  
  Windows(sFileName).Activate
  
  msg = "&lt;HTML&gt;&lt;font face = Calibri =2&gt;"
  msg = msg &amp; "Hi All, &lt;br&gt;&lt;br&gt;"
  msg = msg &amp; "Please find Daily Status Below "
  msg = msg &amp; "&lt;b&gt;&lt;font color=#0033CC&gt;"
  msg = msg &amp; Sheets(1).Range("B2:B4")
  
  
      Set m = o.CreateItem(olMailItem)
      m.To = olTo
  
      m.Subject = Subject1
      m.BodyFormat = olFormatHTML
      m.HTMLBody = msg
      m.Display
  
   Windows(sFileName).Activate
   Sheets(1).Select
   ActiveSheet.DrawingObjects.Select
   Selection.Copy
   Set wEditor = o.ActiveInspector.wordeditor
   m.Body = msg
   wEditor.Application.Selection.Paste
   'm.send
  
      Workbooks(sFileName).Close SaveChanges:=False
  End Sub
  </code></pre>