Gérer les diagrammes (supprimer, copier, exporter…) dans Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x