Discussion :

[draynaud]

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

[eriiic]

Bonjour,

en attendant mieux tu pourrais le faire dans excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[draynaud]

Salut Eric,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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