Discussion :

[KeteMeteK]

Bonjour,

J'ai fait une petite macro qui me copie une sélection dans un tableau Excel, et me la colle dans un nouveau mail Outlook.

Il reste une chose que je ne parviens pas à faire : Redimensionner cette sélection. En effet, elle est trop grande et j'aimerais la redimensionner à 75% de sa taille lors de la copie sur Outlook.

Mon code est on ne peut plus basique:

Code :

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

1
2
Range("ma_selection").CopyPicture
WrdEdit.Application.Selection.Paste

Comment faire pour réduire automatiquement la taille de cette image à 75%?

Merci!

[patricktoulon]

bonjour un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    With Sheets(1)
        Selection.CopyPicture
        .Paste
        With .Shapes(ShapeCount)
            .Width = .Width * 0.75
            .Height = .Height * 0.75
            .Copy: .Delete
        End With
    End With
    WrdEdit.Application.Selection.Paste
End Sub