Chart.ApplyDataLabels, méthode (Project)

Article
04/07/2023

Cette méthode applique des étiquettes de données à toutes les séries d'un graphique.

Syntaxe

expression. ApplyDataLabels (Type,IMsoLegendKey,AutoText,HasLeaderLines,ShowSeriesName,ShowCategoryName,ShowValue,ShowPercentage,ShowBubbleSize,Separator)

expression Variable qui représente un objet Chart.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Type	Facultatif	Office.XlDataLabelsType	Type d'étiquette de données à appliquer. La valeur par défaut est xlDataLabelsShowValue.
IMsoLegendKey	Facultatif	Variant	True pour afficher le symbole de légende à côté du point. La valeur par défaut est False.
AutoText	Facultatif	Variant	True si l'objet génère automatiquement un texte approprié d'après le contenu.
HasLeaderLines	Facultatif	Variant	Cette propriété a la valeur True si la série possède des lignes d'étiquettes.
ShowSeriesName	Facultatif	Variant	True pour activer le nom de la série pour l’étiquette de données. False pour désactiver le nom de la série.
ShowCategoryName	Facultatif	Variant	True pour activer le nom de catégorie pour l’étiquette de données. False pour désactiver le nom de la catégorie.
ShowValue	Facultatif	Variant	True pour activer la valeur de l’étiquette de données. False pour désactiver la valeur. Si le paramètre Type n’est pas spécifié, ShowValue est supposé avoir la valeur True.
ShowPercentage	Facultatif	Variant	True pour activer le pourcentage pour l’étiquette de données. False pour désactiver le pourcentage.
ShowBubbleSize	Facultatif	Variant	True pour activer la taille de bulle pour l’étiquette de données. False pour désactiver la taille de la bulle.
Separator	Facultatif	Variant	Séparateur pour l'étiquette de données.

Valeur renvoyée

Nothing

Exemple

L’exemple suivant applique des étiquettes de données à chaque point de données.

Sub SetDataLabels()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple scalar chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    chartShape.Chart.ApplyDataLabels
End Sub

Voir aussi

Objet Chart

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.

Partager via