Discussion :

[poseidonsr]

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

[jurassic pork]

hello,
tu peux essayer un truc du genre :

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
Sub CopyImage()
        Dim shp As Shape
        Dim chrt As ChartObject
        Dim filePath As String
 
        For Each shp In Sheets("home").Shapes
            If shp.Name = "PictureSignature" Then
                shp.CopyPicture
                filePath = "D:\temp\Signature.png"
                Set chrt = Sheets("home").ChartObjects.Add(0, 0, shp.Width, shp.Height)
                With chrt
                    .Activate
                    .Chart.Paste
                    .Chart.ChartArea.Border.LineStyle = xlLineStyleNone
                    .Chart.Export filePath
                    .Delete
                End With
                Exit For
            End If
        Next shp
        Set chrt = Nothing
        Set shp = Nothing
End Sub

Ami calmant, J.P

[poseidonsr]

Hello,

Merci pour ta réponse ça fonctionne

Salutations,

Romain