Discussion :

[KiksGirl]

Bonjour,

Je souhaiterais exporter 4 graphiques, qui se trouvent dans une même feuille Excel, dans une même image (.png).
Je sais comment faire lorsqu'il y a un seul graphique a exporter mais je ne trouve pas de solution dans mon cas.

Merci d'avance pour votre aide.

Kiksgirl

[mercatog]

Testé sur XL 2007

Code :

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

1
2
3
4
5
With Sheets("Feuil1")
        .Shapes.Range(Array("Chart 1", "Chart 2", "Chart 3", "Chart 4")).Select
        Selection.Copy
        .PasteSpecial Format:="Image (PNG)"
End With

[kiki29]

Salut, voir dans la FAQ http://excel.developpez.com/faq/?pag...ursgraphsImage rt http://excel.developpez.com/faq/?pag...hique#GraphGif
Mais il s'agit du format GIF

[KiksGirl]

Salut, voir dans la FAQ http://excel.developpez.com/faq/?pag...ursgraphsImage rt http://excel.developpez.com/faq/?pag...hique#GraphGif
Mais il s'agit du format GIF

J'avais déjà essayé mais ça ne marche pas dans mon cas.

[KiksGirl]

Finalement j'ai trouvé :

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
public Sub ExportGraph()
 
Dim liste as Collection
Dim Sh as Shape
 
    Set liste = New Collection
    For i = 1 To 4
        liste.Add Sheets("Graphe").ChartObjects(i).Name
    Next
 
    Set Sh = ActiveSheet.Shapes.Range(Array(liste.Item(1), liste.Item(2), liste.Item(3), liste.Item(4))).Group 'Regroupe les graphiques
 
    'Copie la forme
    Sh.CopyPicture
 
    'Créé un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, Sh.Width, Sh.Height).Chart
        .Paste 'Colle l'image dans graphique
        .Export Chemin, "PNG" 'Enregistre le graphique au format PNG
    End With
 
    Nb = ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects(Nb).Delete 'Supprime le graphique
 
    Sh.Ungroup 'Dissocie le groupe de graphiques
 
End Sub

Merci pour votre aide

KiksGirl