Si vous souhaitez supprimer des diagrammes de votre classeur, utilisez la méthode Delete. Cependant, vous devez différencier si vous souhaitez supprimer des feuilles de diagramme ou des diagrammes incorporés de votre classeur.
1 Supprimer les feuilles de graphique du classeur
Pour supprimer toutes les feuilles de diagramme d’un classeur, utilisez la macro suivante:
1 Supprimer les feuilles de graphique du classeur
Pour supprimer toutes les feuilles de diagramme d’un classeur, utilisez la macro suivante:
Sub SupprimerDiagrammes() Application.DisplayAlerts = False On Error Resume Next ActiveWorkbook.Charts.Delete Application.DisplayAlerts = False End Sub
Commentaires:
■ En définissant la propriété DisplayAlerts sur False, vous n’avez pas besoin de confirmer les suppressions individuelles.
■ En définissant la propriété DisplayAlerts sur False, vous n’avez pas besoin de confirmer les suppressions individuelles.
■ L’instruction On Error garantit que le traitement est correctement intercepté s’il n’y a aucune feuille de graphique dans le classeur.
■ La propriété Charts renvoie une liste de toutes les feuilles de diagramme du classeur actif que vous supprimez à l’aide de la méthode Delete.
■ N’oubliez pas de réinitialiser la propriété DisplayAlerts à la valeur pour permettre l’affichage des avertissements et des messages.
■ N’oubliez pas de réinitialiser la propriété DisplayAlerts à la valeur pour permettre l’affichage des avertissements et des messages.
2 Supprimer les diagrammes incorporés du classeur
Pour supprimer tous les graphiques incorporés d’un classeur, écrivez une macro avec deux boucles.
Sub SupprimerTousLesDiagrammesIncorpores() Dim i As Integer Dim e As Integer For i = 1 To Sheets.Count Sheets(i).Activate For e = 1 To ActiveSheet.ChartObjects.Count ActiveSheet.ChartObjects(e).Select ActiveSheet.ChartObjects(e).Delete Next e Next i End Sub
La macro consiste en une boucle externe qui garantit que la feuille de calcul est traitée une par une. La deuxième boucle vérifie s’il y a un ou plusieurs diagrammes incorporés sur des feuilles de calcul individuelles et les marque et les supprime à l’aide des méthodes Sélect ou Delete