Modifier la taille de tous les graphiques de la feuille dans Excel VBA

L’un des objectifs de la création d’un tableau de bord est d’atteindre un certain niveau de symétrie et d’équilibre. Parfois, cela nécessite la standardisation de la taille des graphiques. La macro décrite ci-dessous est une méthode simple pour unifier la hauteur et la largeur de tous les tracés en même temps.
Comment ça marche?
Tous les graphiques font partie de la collection ChartObjects. Pour exécuter des graphiques sur tous les graphiques à la fois, répétez-le simplement pour tous les graphiques de la collection ChartObjects. Chaque graphique de la collection ChartObjects possède un numéro d’index qui peut être utilisé à cette fin. Objets de 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, sa hauteur et sa largeur sont remplacées par celles précédemment définies.

Sub ModifierGraph ()

'Etape 1: Déclaration des variables

Dim i As Integer

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

For i = 1 To ActiveSheet.ChartObjects.Count

'Étape 3: Activez un autre graphique et redimensionnez-le

With ActiveSheet.ChartObjects(i)

.Width = 400

.Height = 300

End With

'Étape 4: Aller au graphique suivant

Next i

End Sub

 

Commentaires :

1. Dans la première étape, la variable (type de données entier) qui sera utilisée dans le mécanisme de boucle est déclarée. 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. Pendant les sauts successifs de la boucle, la valeur de la variable augmentera de un jusqu’à ce qu’elle corresponde au nombre de graphiques de la feuille de calcul.

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. Ensuite, la hauteur et la largeur du tracé sont remplacées par celles spécifiées dans le code. Si nécessaire, ces valeurs peuvent être définies en fonction de vos propres besoins.

4. À l’étape quatre, le numérateur est augmenté d’une unité et la macro passe au graphique suivant. 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 vide 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