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!