Bonjour à tous,
j'aimerais exporter 4 graphiques en une seul image, miracle j'ai trouvé exactement le code qu'il me falait dans les Faqs, mais il y a une erreur ...
J'ai 4 graphiques à exporter sur la "Feuil2"
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
36
37
38 Option Explicit Private Const Fichier As String = "C:\ImageTemp.gif" Sub ExporteGIF_GroupeGraphiques() Dim Sh As Shape Dim Tableau(1 To 4) As String Dim i As Integer, Nb As Integer 'Supprime l'image temporaire si elle existe If Dir(Fichier) <> "" Then Kill Fichier 'Boucle sur les 4 premiers graphiques de la feuille active For i = 1 To 4 Tableau(i) = ActiveSheet.ChartObjects(i).Name Next 'Regroupe les graphiques Set Sh = ActiveSheet.Shapes.Range(Tableau).Group 'copie la forme Sh.CopyPicture 'crée un graphique With ActiveSheet.ChartObjects.Add(0, 0, _ Sh.Width, Sh.Height).Chart .Paste 'colle l'image dans graphique ' enregistre le graphique au format gif .export Fichier, "GIF" End With Nb = ActiveSheet.ChartObjects.Count 'supprime le graphique ActiveSheet.ChartObjects(Nb).Delete Sh.Ungroup End Sub
Partager