Enviar gráfico de excel en outlook mediante macro

Hola, estoy usando el siguiente código para enviar un correo con asunto, cuerpo y datos de un rango de una hoja excel, ¿sería posible enviar en el mismo código un gráfico contenido en la misma hoja?

Sub correo()
Application.ScreenUpdating = False
'Sheets("GOBJ").Visible = True
'Select the range of cells on the active worksheet.
Sheets("GOBJ").Activate
Sheets("GOBJ").Select
Range("H3:I6").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Info Datos diarios dominios activos"
.Item.To = "[email protected]"<br class="scayt-misspell" data-scayt_word="perez@red" data-scaytid="29" />.Item.Subject = ".es"
.Item.Send
End With
'Sheets("GOBJ").Visible = False
Sheets("Portada").Activate
End Sub