Changement taille image dans Outlook provenant d'Excel

Bonjour à tous,

Je souhaite intégrer une image provenant d'une sélection de cellule d'Excel. J'ai pris la macro de Thev qui avait aidé anne64 sur un autre post afin de parvenir à mon but. Donc 1ère étape franchie.

Mon problème est que cette image s'affiche trop petite dans le mail. Comme j'y connais rien en macro, je souhaiterai intégrer dans la macro une taille d'image plus grand. Pouvez-vous m'aider?

Sub envoi_mail()

    ' Définition des variables
    Dim OL As Object, myItem As Object, wDoc As Object, rng As Object
    Dim nb_lignes As Integer, i As Integer
    Dim plage_mail As Range
    Dim destinataires As Variant, objet As String

    '// assignation des objets
    Set OL = CreateObject("Outlook.Application")
    Set myItem = OL.CreateItem(olMailItem)
    Set wDoc = myItem.GetInspector.WordEditor

    '//mise en variable des entrées du mail
    With Sheets("Traitement")
        Set plage_mail = .Range("B1:I25")
    End With
    With Sheets("Mail")
        destinataires = .Range("A1").Value
        objet = .Range("A2") & Date
    End With

    '// Prépration du mail avec adresse des destinataires, objet du mail, corps du mail
    With myItem
        .To = destinataires
        .Subject = objet
        .Display

        ' Copie de la plage en image
        plage_mail.CopyPicture
        Set rng = wDoc.Content
        rng.InsertParagraphBefore
        rng.Move 4, -1
        rng.Paste
        rng.Move 4

        ' Envoi
        .Send
    End With

    '// désassignation des objets
    Set OL = Nothing: Set myItem = Nothing: Set wDoc = Nothing

 End Sub

Merci d'avance

Weilless