Modification de la taille d une image copiée depuis un Excel dans un mail

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:

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

Bonjour,

en attendant mieux tu pourrais le faire dans excel :

Code:

1
2
3
4
5
6
7
8
9
10
    r.CopyPicture
    ActiveSheet.Paste
    With Selection
        With .ShapeRange
            .LockAspectRatio = True
            .Height = 15
        End With
        .Copy
        .Delete
    End With

eric

Salut Eric,

Ton commentaire tombe á pic, je viens de trouver comment faire sur stackoverflow!
Code:

1 2 3 4 For Each shp In wordDoc.InlineShapes shp.ScaleHeight = 90 shp.ScaleWidth = 90 Next
ton code aurait marché je pense ;)

Salut,
David