Vba colar especial

[Unsu]

Bom dia a todos.

 

Eu estou usando um VBA para, a partir do excel, abrir uma nova mensagem do Outlook, para facilitar o envio de um relatório.

 

Queria saber como faço para adicionar nesse código a função de colar em bitmap (copiar do excel eu já sei). Só queria a função de colar mesmo.

Sub Email()
 Dim olApp As Object
 Dim Msg As Object
 Set olApp = CreateObject("Outlook.Application")
 Set Msg = olApp.CreateItem(0)
 Msg.Subject = "XXXX"
 Msg.CC = "XXXXX"
 Msg.BCC = "Ocultos"
 Msg.Body = "Prezados, bom dia!" & Chr(10) & "" & Chr(10) & "Segue relatório atualizado com as informações de agosto/16." & Chr(10) & "" & Chr(10) & "Para realizar o download do arquivo clique aqui." & Chr(10) & "" & Chr(10) & "http://link_do_relatório_na_internet.com"
 Msg.Display
 Set Msg = Nothing
 Set olApp = Nothing
 
End Sub

 

Outra dúvida. como faço para aquele link da fórmula entrar como um hiperlink no "clique aqui"?

 

Muito obirgado pela ajuda e pelo seu tempo ao ler isso.