Bonjour,

Je souhaiterais coller une image depuis excel sur le SSD. J'ai trouvé quelques idées en passant par un graphique. Le Paste sur le graphique ne se fait pas. Quelqu'un saurait me dire pourquoi svp ? ou éventuellement une autre solution que le graphique ?

Merci d'avance pour votre aide.

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
 
        Dim shp As Shape
        Dim wdshp As Word.Shape
        Dim chrt As Chart
        Dim filePath As String
 
        For Each shp In .Sheets("home").Shapes
 
            If shp.name = "PictureSignature" Then
 
                shp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
 
                filePath = GetDesktopPathOnThisDevice & Application.PathSeparator & "Signature.png"
 
                Set chrt = .Sheets("home").ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
 
                With chrt
                    .Paste
                    .ChartArea.Border.LineStyle = xlLineStyleNone
                    .Export filePath
                End With
 
                ActiveSheet.ChartObjects(1).delete
                Exit For
 
            End If
        Next shp
 
        Set chrt = Nothing
        Set shp = Nothing
        Set wdshp = Nothing