Скопировать таблицу Excel в почтовое сообщение Outlook

У меня есть адреса электронной почты в столбце A и объект диаграммы на том же листе.

Для каждого адреса электронной почты я хочу создать новое письмо в Outlook и вставить диаграмму Excel в тело письма.

Проблема с моей попыткой (ниже) заключается в том, что диаграмма не вставляется в тело письма. Как это исправить?

Это мой код:

Sub smail()        
    Dim r As Integer
    Dim o As Outlook.Application
    Dim m As Outlook.MailItem
    Set o = New Outlook.Application
    r = 1
    Do While Cells(r, 1) <> ""
        Set m = o.CreateItem(olMailItem)
        m.To = Cells(r, 1)
        m.CC = "xyz@anc.com"
        m.BCC = "abc@xyz.com"
        m.Subject = "Test"
        ActiveChart.ChartArea.Copy
        Set wEditor = o.ActiveInspector.WordEditor
        'm.Body = Paste
        wEditor.Application.Selection.Paste

        m.Send
        r = r + 1
        Set m = Nothing
    Loop
End Sub