Imprime tous les graphiques de la feuille de calcul avec Excel VBA

Comment ca marche?
Tous les graphiques font partie de la collection ChartObjects. Pour opérer sur tous les tracés à la fois, répétez-le simplement pour tous les tracés de la collection ChartObjects. Chaque graphique de la collection ChartObjects possède un numéro d’index qui peut être utilisé à cette fin. ChartObjects (1) est le premier graphique de la feuille de calcul.
La macro utilise cette solution pour créer des boucles pour les tracés successifs de la feuille active. Chaque fois que vous passez à un nouveau graphique, il est imprimé.

Sub ImprimerGraph()

'Étape 1: Déclaration des variables

Dim ListeGraph As Integer

Dim i As Integer

'Étape 2: démarrer une boucle pour tous les graphiques

For i = 1 To ActiveSheet.ChartObjects.Count

'Étape 3: Activez chaque graphique et imprimez

ActiveSheet.ChartObjects(i).Activate

ActiveChart.PrintOut Copies:=1

'Étape 4: Aller au graphique suivant

Next i

End Sub

 

Commentaires :
1. Dans la première étape, une variable de contrôle (type de données entier) est déclarée comme étant utilisée dans le mécanisme de boucle. Le nom de cette variable est i.
2. À la deuxième étape, la boucle est lancée. La valeur de i est définie sur 1, la valeur maximale est le dernier numéro d’index du graphique dans la collection ChartObjects de la feuille active. Pendant l’exécution du code, le compteur commencera à décompter à partir de 1. Au fur et à mesure que la boucle sautera, la valeur de la variable augmentera de un jusqu’à ce qu’elle égale le nombre de graphiques sur la feuille.
3. Dans la troisième étape, la variable i est passée à la collection ChartObjects comme numéro d’index. Cela active le graphique dans la feuille. La méthode ActiveChart.PrintOut sera ensuite utilisée pour démarrer le travail d’impression. Il convient de prêter attention à la possibilité de définir la propriété Ori entation sur xlLandscape ou xlPortrai t en fonction des besoins spécifiques.
4. À l’étape quatre, le numérateur est incrémenté d’une unité et le graphique suivant suit. Après avoir analysé tous les macro-graphiques, le travail est terminé.
Comment appliquer une macro?
Pour implémenter cette macro, vous pouvez copier et coller son code dans un module standard. Dans ce but:
1. Utilisez la combinaison de touches Alt + F11 pour activer Visual Basic Editor.
2. Dans la fenêtre Projet, cliquez avec le bouton droit sur le nom du projet ou de la feuille.
3. Sélectionnez Insertion / Module.
4. Entrez ou collez le code dans le module nouvellement créé.

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

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

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