Ajouter et lire des étiquettes des graphiques ou diagrammes avec Excel VBA

Imaginez que vous ayez un nuage de points qui vous montre vos coûts quotidiens. Vous souhaitez maintenant documenter des points individuels de manière très ciblée, ajoutez des commentaires aux points. Vous pouvez résoudre cette tâche en utilisant deux zones de saisie. Dans la première zone de saisie, vous entrez le point sur lequel vous souhaitez ajouter un commentaire, et dans la deuxième zone de saisie, vous saisissez le commentaire réel sur le point de données.


La macro suivante ajoute des commentaires à des points de données individuels:

Sub AjouterEtiquetteDonnees()
Dim i As Integer
i = InputBox("Sur quel point doit-on commenter?", _
"Commenter le diagramme")
If i = 0 Then Exit Sub
Sheets("Diagramme de dispersion").ChartObjects(1).Select
ActiveChart.SeriesCollection(1) _
.Points(i).ApplyDataLabels _
Type:=xlDataLabelsShowLabel, AutoText:=True
ActiveChart.SeriesCollection(1). _
Points(i).DataLabel.Text _
= InputBox("Veuillez saisir le texte du commentaire")
End Sub

 

Commentaires

 À l’aide de la méthode ApplyDataLabels, vous attribuez un point de données, la série de données ou toutes les séries de données dans la feuille de diagramme de la feuille de données
La méthode a la syntaxe suivante:

ApplyDataLabels(Type, LegendKey, AutoText, HasLeaderLines)

 

L’argument Type représente le type d’étiquette de données. L’une des constantes XlDataLabelsType suivantes est autorisée:

Description  constante
xlDataLabelsShowNone aucun étiquetage de données
xlDataLabelsShowValue aleur du point de données (si cet argument n’est pas spécifié, il devient une valeur
accepté)
XlDataLabelsShowPercent Pourcentage du total; uniquement disponible pour les diagrammes à secteurs et en anneau
XlDataLabelsShowLabel Étiquetage de l’en-tête pour le point de données; c’est la valeur par défaut.
XlDataLabelsShowLabelAnd-Percent Pourcentage des étiquettes de total et d’en-tête pour le point de données; uniquement disponible pour les diagrammes à secteurs et en anneau

 L’argument LegendKey a la valeur True si vous souhaitez qu’Excel affiche la légende à côté du point de données. Dans la plupart des cas, cependant, cela n’est pas souhaitable. Pour cette raison, la valeur par défaut de cet argument est False.

 Avec l’argument AutoText: = True, l’objet génère automatiquement le texte approprié en fonction du contenu. Définissez l’argument HasLeaderLines sur True si vous souhaitez que la série ait des lignes de repère.

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