Excel Copiar células e cola como imagem corpo email

[Renan.souza91]

Gostaria de saber como faço para criar uma VBA para copiar celulas do excel e colar no corpo de um novo e-mail como imagem.

Não sei se está certo abaixo, mas da forma que fiz ele seleciona a celula que preciso copiar e abre a janela de novo email do Outlook, porém não copia e também não cola no corpo do e-mail, ja tentei incluir alguns códigos porém sempre dá erro...

 

Sub Email()

 ActiveSheet.Range("A1:p26").Select
 
Dim olApp As Object
Dim Msg As Object

Set olApp = CreateObject("Outlook.Application")
Set Msg = olApp.CreateItem(0)

Msg.Display

Set Msg = Nothing
Set olApp = Nothing


End Sub