Tengo direcciones de correo electrónico en la columna A y un objeto gráfico en la misma hoja.

Para cada dirección de correo electrónico, quiero crear un nuevo correo en Outlook y pegar el gráfico de Excel en el cuerpo del correo electrónico.

El problema con mi intento (a continuación) es que el gráfico no se pega en el cuerpo del correo. ¿Cómo puedo solucionar esto?

Este es mi código:

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 = "[email protected]"
        m.BCC = "[email protected]"
        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