Modifier la taille d'images (provenant de ranges Excel) sur Ootlook

Bonjour,

J'ai crée une macro permettant d'exporter des ranges de feuilles Excel sur Ootlook (au format image) afin d'automatiser l'envoi de mail.

Tout fonctionne correctement, mais les deux images collées dans le corps de chaque mail ne sont pas lisibles car trop petites.

J'aimerais savoir s'il y avait un moyen de les agrandir, pour avoir le même rendu que quand je modifie la taille de l'image à la main directement dans le corps du mail --> clique droit image --> Taille et position --> je remplace échelle = 100% au lieu des 28% par défaut.

Merci d'avance pour votre aide,

Je vous mets ci-dessous la fin du code à modifier :

...

For I = 1 To n

nomfeuille = wb.Worksheets("Export").Cells(I + 2, 2).Value

    With Sheets(I).PageSetup
        .Orientation = xlPortrait
        .PrintArea = "$A$1:$U$216"

    End With

        Sheets(nomfeuille).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & Sheets(nomfeuille).name & " " & ladate & " " & lheure & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, from:=1, To:=2, OpenAfterPublish:=False

        chempdf = "C:\Users\" & Sheets(nomfeuille).name & " " & ladate & " " & lheure & ".pdf"

            Set oItem = oApp.CreateItemFromTemplate("C:\Users\" & nomfeuille & ".oft")
            Set wdDoc = oItem.GetInspector.WordEditor

            Set plageexp1 = ThisWorkbook.Worksheets(nomfeuille).Range("A111:U216")
            Set plageexp2 = ThisWorkbook.Worksheets(nomfeuille).Range("A1:U110")

            With oItem

            .Attachments.Add chempdf
            .Display

            ' Copier/coller le range1 en immage dans la template Ootlook
            plageexp1.CopyPicture Appearance:=xlScreen, Format:=xlPicture
            Set rng = wdDoc.Content
            rng.InsertParagraphbefore
            rng.Move 4, -1
            rng.Paste
            rng.Move 4

            ' Copier/coller le range2 en immage dans la template Ootlook
            plageexp2.CopyPicture Appearance:=xlScreen, Format:=xlPicture
            Set rng = wdDoc.Content
            rng.InsertParagraphbefore
            rng.Move 4, -1
            rng.Paste
            rng.Move 4

    End With

    Next I

Application.ScreenUpdating = True

End Sub

Hello,

A tester :

Set oItem = oApp.CreateItemFromTemplate("C:\Users\" & nomfeuille & ".oft")
            Set wdDoc = oItem.GetInspector.WordEditor

            Set plageexp1 = ThisWorkbook.Worksheets(nomfeuille).Range("A111:U216")
            Set plageexp2 = ThisWorkbook.Worksheets(nomfeuille).Range("A1:U110")

 wdDoc.Windows.Item(1).View.Zoom.Percentage = 100

R@g

Merci pour ta réponse Rag mais le code placé à l'endroit indiqué ne permet pas de mettre les images en zoom 100% :/

et comme ceci ?

With oItem
             .View.Zoom.Percentage = 100
            .Attachments.Add chempdf
            .Display

Sinon tu as cette façon de faire

Sub Emailrange()
ActiveSheet.Range("A1:B5").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "This is a test."
.Item.To = ABD@xxx.com
.Item.Subject = "subject"
.Item.Send
End With
End Sub

Non plus il me renvoie propriété ou méthode non géré par cet objet

Il faut que la macro aille chercher une template spécifique déja crée pour chaque envoi, la deuxième façon de faire que tu me propose ne peux donc pas être utilisée

J'ai trouvé cette page intitulée "Resize images in Outlook email", je pense qu'une solution peut être trouvée à partir de là : https://slipstick"rajouter un point"com/developer/code-samples/resize-images-outlook-email/

Merci !