Objet DataLabel (PowerPoint)
Cet objet représente l'étiquette de données sur une courbe de tendance ou un point d'un graphique.
Remarques
Dans une série, l'objet DataLabel est un membre de la collection DataLabels. La collection DataLabels contient un objet DataLabel pour chaque point. Pour une série sans point définissable (par exemple une série en aires), la collection DataLabels contient un seul objet DataLabel.
Exemple
Remarque
Bien que le code suivant s’applique à Microsoft Word, vous pouvez le modifier dès à présent pour l’appliquer à PowerPoint.
Utilisez DataLabels (index), où index est le numéro d’index de l’étiquette de données, pour renvoyer un seul objet DataLabel . L'exemple suivant définit le format numérique de la cinquième étiquette de données dans la première série du premier graphique du document actif.
With ActiveDocument.InlineShapes(1)
If .HasChart Then
.Chart.SeriesCollection(1).DataLabels(5).NumberFormat = "0.000"
End If
End With
Remarque
Bien que le code suivant s’applique à Microsoft Word, vous pouvez le modifier dès à présent pour l’appliquer à PowerPoint.
Utilisez la propriété Point.DataLabel pour renvoyer un objet DataLabel pour un point unique. L'exemple suivant active l'étiquette de données pour le deuxième point de la première série du premier graphique du document actif et définit le texte d'étiquette de données « Saturday ».
With ActiveDocument.InlineShapes(1)
If .HasChart Then
With .Chart.SeriesCollection(1).Points(2)
.HasDataLabel = True
.DataLabel.Text = "Saturday"
End With
End If
End With
Remarque
Bien que le code suivant s’applique à Microsoft Word, vous pouvez le modifier dès à présent pour l’appliquer à PowerPoint.
Pour une courbe de tendance, la propriété Trendline.DataLabel renvoie le texte associé à la courbe. Il peut s'agir de l'équation, du coefficient de détermination ou des deux (si les deux sont affichés). L'exemple suivant définit le texte de la première courbe de tendance de la première série du premier graphique du document actif et affiche uniquement l'équation.
With ActiveDocument.InlineShapes(1)
If .HasChart Then
With .Chart.SeriesCollection(1).Trendlines(1)
.DisplayRSquared = False
.DisplayEquation = True
End With
End If
End With
Voir aussi
Référence du modèle objet PowerPoint
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour