Copier-coller image dans un mail

Bonjour à tous!

Je souhaiterai copier-coller un tableau sous forme d'image dans un mail.

J'ai déjà le code suivant:

Set messagerie = CreateObject("Outlook.Application")
Set courriel = messagerie.CreateItem(olMailItem)
Set wdoc = courriel.getinspector.wordeditor

With courriel
        .display
        sh.Range("B2:I80").Copy
        Set image = wdoc.Content
        image.PasteSpecial , DataType:=wdPasteMetafilePicture
End With

Ca marche mais le tableau n'est copié que jusqu'à la ligne 56, savez-vous comment redimensionner l'image pourqu'elle soit copiée jusqu'à la ligne 80?

Merci!

Rechercher des sujets similaires à "copier coller image mail"