Chart.ApplyDataLabels-Methode (Project)
Wendet auf alle Reihen in einem Diagramm Datenbeschriftungen an.
Syntax
Ausdruck. ApplyDataLabels (Type,IMsoLegendKey,AutoText,HasLeaderLines,ShowSeriesName,ShowCategoryName,ShowValue,ShowPercentage,ShowBubbleSize,Separator)
Ausdruck: Eine Variable, die ein Chart-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Typ | Optional | Office.XlDataLabelsType | Der anzuwendende Datenbeschriftungstyp. Der Standardwert ist xlDataLabelsShowValue. |
IMsoLegendKey | Optional | Variant | Mit True wird das Legendensymbol neben dem Datenpunkt angezeigt. Der Standardwert ist False. |
AutoText | Optional | Variant | True, Wenn das Objekt automatisch basierend auf dem Inhalt angemessenen Text generiert. |
HasLeaderLines | Optional | Variant | True, wenn die Datenreihe Führungslinien besitzt. |
ShowSeriesName | Optional | Variant | True , um den Reihennamen für die Datenbezeichnung zu aktivieren. False , um den Reihennamen zu deaktivieren. |
ShowCategoryName | Optional | Variant | True , um den Kategorienamen für die Datenbezeichnung zu aktivieren. False , um den Kategorienamen zu deaktivieren. |
ShowValue | Optional | Variant | True , um den Wert für die Datenbeschriftung zu aktivieren. False , um den Wert zu deaktivieren. Wenn der Type-Parameter nicht angegeben ist, wird ShowValue als True angenommen. |
ShowPercentage | Optional | Variant | True , um den Prozentsatz für die Datenbezeichnung zu aktivieren. False , um den Prozentsatz zu deaktivieren. |
ShowBubbleSize | Optional | Variant | True , um die Blasengröße für die Datenbezeichnung zu aktivieren. False , um die Blasengröße zu deaktivieren. |
Separator | Optional | Variant | Das Trennzeichen für die Datenbeschriftung |
Rückgabewert
Nothing
Beispiel
Im folgenden Beispiel werden Datenbeschriftungen auf jeden Datenpunkt angewendet.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für