Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Wendet auf alle Reihen in einem Diagramm Datenbeschriftungen an.
Syntax
Ausdruck verwendet werden. 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 Seriennamen 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 Datenbezeichnung zu aktivieren. False , um den Wert zu deaktivieren. Wenn der Parameter Type nicht angegeben ist, wird davon ausgegangen, dass ShowValueTrue ist. |
| ShowPercentage | Optional | Variant | TRUE , um den Prozentsatz für die Datenbeschriftung zu aktivieren. False , um den Prozentsatz zu deaktivieren. |
| ShowBubbleSize | Optional | Variant | TRUE , um die Blasengröße für die Datenbeschriftung 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.