Cher tous,

Je suis bloqué...á la toute fin de mon code!

Je copie un range en image dans un email, mais je n arrive pas á en modifier la taille!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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
J imagine que c est assez simple, mais comme je maitrise assez mal le get inspector, je suis un peu perdu..

Merci á qui prendra le temps de me lire, et plus encore á celui ou celle qui pourra maider!

David