Macro que envia tabela do excel como imagem por email

Question

Olá, pessoal! Estou precisando fazer uma macro para enviar uma range de células do excel no corpo do email. Não é em anexo, é no corpo do email, juntamente com a mensagem. 

Vocês podem me ajudar?

Abaixo segue o código que eu estava tentando:

Sub EnviarEmail()

' Seleciona o intervalo de células a serem enviadas por email.

   Sheets("Plan1").Select

   ActiveSheet.Range("B2:D3").Select

   Application.CutCopyMode = False

   Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

   ActiveWorkbook.EnvelopeVisible = True

   With ActiveSheet.MailEnvelope

      .Introduction = "Bom dia. Segue quadro atualizado. "

      .Item.To = "******@outlook.com;"

      .Item.Subject = "Quadro"

      .Item.Send

   End With

End Sub

Answer 1

Olá Laiany M. (: , tudo bem? 

Obrigado por entrar em contato com à Comunidade Microsoft!

Referente ao seu caso do VBA, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN é um fórum especialmente destinados para desenvolvedores e profissionais em TI e para sua questão.

MSDN - VBA -

https://social.msdn.microsoft.com/Forums/pt-BR/newthread?category=officesharepointpt&forum=vbapt

Espero ter ajudado, até mais!