Guru do Excel e Power BI

Olá,

Eu tentei criar uma macro para enviar um email simples e com assinatura via outlook de um determinado intervalo dentro da planilha, o problema que eu tive foi que eu precisava enviar um conjunto de células com informações e uma imagem no canto esquerdo dessa forma:

https://i.imgur.com/OwZwHRJ.png
(não consegui anexar uma imagem)

Quando enviei, a imagem distorcia o conteúdo das colunas, deixando uns espaços em branco e alterando o tamanho das linhas), tirando a imagem o envio ficou 100%.

Preciso que seja um email selecionável, podendo selecionar os números ou os conteúdos das células.

Se alguém puder me ajudar eu seria grato.

Obrigado.

Obs.: eu usei o MailEnvelope.

Veja se te ajuda essa macro:


Sub Email()

' Seleciona o intervalo de células a serem enviadas por email.
ActiveSheet.Range("A1:K38").Select

ActiveWorkbook.EnvelopeVisible = True


With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = "emails"
.Item.Cc = "emails"
.Item.Subject = "assunto"
.Item.Send
End With
End Sub