Les diagrammes peuvent être copiés, supprimés ou exportés sous forme de fichier image.
1 Gérer la feuille de graphique
Voici trois programmes pour copier, supprimer ou exporter une feuille de diagramme.
La copie
Sub CopieGraphique()
ThisWorkbook.Charts("Graphique1").Copy _
After:=Worksheets("Feuil1")
ActiveChart.Name = "Nouveau Diagram1"
End Sub
Commentaires:
■ Une feuille de graphique est copiée exactement de la même manière qu’une feuille de calcul.
■ La méthode Copy () assure la copie. Avec After ou Before, vous pouvez spécifier l’emplacement de la copie. Sans paramètres, un nouveau classeur serait créé avec la feuille de graphique comme seule feuille.
La suppression
Sub Diagrammesupression()
ThisWorkbook.Charts("Graphique1").Delete
End Sub
Commentaires:
■ La méthode Delete () supprime la feuille de graphique spécifiée avec confirmation.
Exportation
Sub ExportationGraph()
ThisWorkbook.Charts("Graphique1").Export _
"C:\Temp\monfichier.png"
End Sub
Commentaires:
■ La méthode Export () est utilisée pour créer un fichier image. Le nom du fichier image (éventuellement avec le nom du répertoire) doit être spécifié. L’extension du nom de fichier détermine le type de conversion; .jpg, .gif et .png sont autorisés.
2 Gérer le diagramme intégré
Parallèlement à la section précédente, il existe trois programmes pour copier, supprimer ou exporter un diagramme incorporé.
copie:
Sub Copiediagrammeintegrer()
With ThisWorkbook.Worksheets("Feuil3")
.ChartObjects(1).Copy
.Paste
.ChartObjects(2).Top = 250
.ChartObjects(2).Left = 200
End With
End Sub
Commentaires:
■ On suppose qu’il n’y a qu’un seul cadre de diagramme dans la feuille de calcul du tableau.
■ Ce cadre porte le numéro 1 dans la liste ChartObjects. La méthode Copy () copie le cadre du diagramme (y compris le diagramme) dans le presse-papiers.
■ La méthode Paste () insère le cadre du diagramme du presse-papiers dans le tableau de la feuille de calcul. Il devient alors ChartObjects (2).
■ La position de ce nouveau cadre de diagramme est déterminée par les propriétés Haut et Gauche.
La suppression
Sub Suppressiondiagrammeintegrer()
ThisWorkbook.Worksheets("Feuil4"). _
ChartObjects(2).Delete
End Sub
Commentaires:
■ La méthode Delete () efface le cadre du diagramme sans demander.
L’exportation
Sub ExportationDiagrammeintegrer()
ThisWorkbook.Worksheets("Feuil4"). _
ChartObjects(1).Chart.Export _
"C:\Temp\monfichier.jpg"
End Sub
Commentaires:
■ La méthode Export () permet de créer un fichier image, cette fois à partir du diagramme d’un cadre de diagramme.