Código VBA que envia imagem no E-mail (Ajuda)

Question

Bom dia galera, estou com um código VBA que seleciona uma range específica, e cola como imagem no Outlook e envia.

Até ai tudo ok, porém quando ele cola a imagem ela fica muito pequena e quando o destinatário recebe quase não da pra ler, e também, ele cria um novo e-mail sem assinatura.

Os pontos que preciso de ajuda são:

1 - Redimensionar a figura para que fique maior no corpo do E-mail;

2 - Configurar para que ele crie o e-mail com assinatura.

Obrigado des de já!

---

Sub PasteImgEMail()

    Range("A1:T1").Select

    Range(Selection, Selection.End(xlDown)).Select

'copia a range

Dim rng As Range

Set rng = Selection.SpecialCells(xlCellTypeVisible)

'Set r = Range("A1:T57")

rng.Copy

'abre o outlook e seleciona destinatarios

    Set OutApp = CreateObject("Outlook.Application")

    Set outMail = OutApp.CreateItem(0)

    On Error Resume Next

    With outMail

        .To = "******@rumolog.com"

        .cc = "******@rumolog.com"

        .BCC = ""

        .Subject = "Passagem de Escala"

        .Display    'or use .Send

Dim wordDoc As Word.Document

Set wordDoc = outMail.GetInspector.WordEditor

'colar como figura

wordDoc.Range.PasteAndFormat wdChartPicture

End With

End Sub

---

Answer 1

Olá Alexandre PatríciaWojciechowski, tudo bem?

Obrigada por entrar em contato com a Comunidade Microsoft!

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai redireciona-lo à página do MSDN, um fórum especialmente destinado à desenvolvedores e profissionais do TI:

Fórum MSDN

Se esta informação ajudou de alguma forma, por favor, marque como resposta. Caso a sua dúvida não tenha sido solucionada, por favor, poste novamente.

Espero ter ajudado, até mais!