VBA Redimensionner un JPEG collé dans un MailItem

Question

J'essaie d'envoyer une image avec VBA à partir d'une feuille Excel, mais la taille de ce que je reçois est très petite.

-vous maintenant comment je pourrais obtenir ce à une taille plus décente

Voici le code (essentiellement l'écran entier?):

Sub send_as_a_pic() 
    'Copy range of interest 
    Dim r As Range 
    Set r = Range("B2:O23") 
    r.Copy 

    'Open a new mail item 
    Dim outlookApp As Outlook.Application 
    Set outlookApp = CreateObject("Outlook.Application") 
    Dim outMail As Outlook.MailItem 
    Set outMail = outlookApp.CreateItem(olMailItem) 

    With outMail 
        .To = "fernando.grespan@fernando.com" 
        .CC = "" 
        .BCC = "" 
        .Subject = "PAC 2017 sales up to date" 
    End With 

    'Get its Word editor 
    outMail.Display 
    Dim wordDoc As Word.Document 
    Set wordDoc = outMail.GetInspector.WordEditor 

    'To paste as picture 
    wordDoc.Range.PasteAndFormat wdChartPicture 

    'With wordDoc.Range 
    ' .LockAspectRatio = True 
     ' .Top = wordDoc.Top 
     ' .Left = wordDoc.Left 
     '.Height = wordDoc.RowHeight 
    'End With 

    End Sub 

Merci beaucoup à celui qui peut me aider!

Answer 1

il était en fait assez facile, trouver la réponse sur develloppez.com:

For Each shp In wordDoc.InlineShapes 
     shp.ScaleHeight = 90 
     shp.ScaleWidth = 90 
    Next 

Merci!