/ / Tableaux de programmation dans Excel VBA

Tableaux de programmation dans Excel VBA

Ci-dessous, nous examinerons deux programmes en Excel VBA. Un programme parcourt tous les graphiques sur une feuille et modifie chaque graphique en un graphique à secteurs. L’autre programme change certains propriétés de la première carte.

1. Créez des graphiques (ou téléchargez le fichier Excel).

Tableaux de programmation dans Excel VBA

Placez un bouton de commande sur la feuille de calcul et ajoutez les lignes de code suivantes:

1. Nous devons d’abord déclarer un objet ChartObject. L'objet ChartObject agit comme un conteneur pour un objet Chart. Nous appelons le cho ChartObject mais vous pouvez utiliser n'importe quel nom.

Dim cht As ChartObject

2. La collection ChartObjects contient tous les graphiques incorporés sur une seule feuille. Nous voulons parcourir tous les graphiques de la première feuille. Ajoutez ce qui suit pour chaque boucle suivante.

For Each cht In Worksheets(1).ChartObjects

Next cht

3. L'objet Chart représente un graphique dans un classeur. Ajoutez la ligne de code suivante à la boucle For Each Next pour modifier chaque graphique en graphique à secteurs.

cht.Chart.ChartType = xlPie

Remarque: encore une fois, cht agit comme un conteneur pour l'objet Chart. Nous utilisons la propriété ChartType pour modifier le type de graphique. Nous utilisons la constante intégrée xlPie pour transformer chaque graphique en graphique à secteurs.

4. Résultat lorsque vous cliquez sur le bouton de commande de la feuille:

Résultat des tableaux de programmation

Nous allons maintenant changer certaines propriétés du premier graphique.

Placez un autre bouton de commande sur la feuille de calcul et ajoutez les lignes de code suivantes:

5. La collection ChartObjects contient tous les graphiques incorporés sur une seule feuille. Ajoutez la ligne de code suivante pour activer le premier graphique:

Worksheets(1).ChartObjects(1).Activate

Nous pouvons maintenant nous référer à ce graphique comme ActiveChart.

6. Ajoutez la ligne de code suivante pour modifier le titre du graphique.

ActiveChart.ChartTitle.Text = "Sales Report"

7. Ajoutez la ligne de code suivante pour déplacer la légende au bas du graphique:

ActiveChart.Legend.Position = xlBottom

8. Résultat lorsque vous cliquez sur le bouton de commande de la feuille:

Résultat des tableaux de programmation

Lisez aussi: