Coller Image dans outlook - VBA

Bonjour,

J'ai un code qui fonctionne bien pour envoyer des mail mais je souhaiterais coller mon range en format image, je n'y arrive pas vraiment... Avez vous une idee?

Sub mail()

Dim smail As Worksheet
Set smail = ActiveWorkbook.Sheets("Feuil2")

Dim r As Range
Set r = smail.Range("C5:I16")
r.Copy

 On Error Resume Next
        Set OutApp = GetObject(, "Outlook.Application")
        If Err <> 0 Then Set OutApp = CreateObject("Outlook.Application")
        On Error GoTo 0

         Set outMail = OutApp.CreateItem(0)
        With outMail
            .BodyFormat = 3
            .To = ""
            .CC = ""
            .BCC = ""
            .Subject = ""

            Set olInsp = .GetInspector
            Set wdDoc = olInsp.WordEditor
            Set oRng = wdDoc.Range
            oRng.collapse 1
            oRng.Paste
            .Display
           ' .send
        End With

End Sub

Voici le code si ca peut aider, il est assez classique

Je peux fournir le fichier si necessaire meme si il n y a pas grand chose à part le range selectionné

Merci d'avance

Hello,

Je ne suis pas expert VBA mais as-tu essayé :

Dim r As Range
Set r = smail.Range("C5:I16")
r.CopyPicture xlScreen, xlBitmap

a+

Hello,

Magnifique!!!

Comme quoi pas besoin d'être un expert

Merci beaucoup