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.
Eine Auflistung aller LegendEntry -Objekte in der angegebenen Diagrammlegende.
Hinweise
Jeder Legendeneintrag besteht aus zwei Teilen:
Dem Text des Eintrags, also dem Namen der Datenreihe oder der Trendlinie, die mit dem Legendeneintrag verknüpft ist
Der Eintragsmarkierung, mit der der Legendeneintrag visuell mit der Datenreihe oder Trendlinie im Diagramm verknüpft wird
Formateigenschaften der Eingangsmarkierung und der zugeordneten Datenreihe oder Trendlinie sind im LegendKey -Objekt enthalten.
Beispiel
Hinweis
[!HINWEIS] Although the following code applies to Microsoft Word, you can readily modify it to apply to PowerPoint.
Verwenden Sie die LegendEntries -Methode, um die LegendEntries -Auflistung zurückzugeben. Im folgenden Beispiel wird die Auflistung der Legendeneinträge für das erste Diagramm im aktiven Dokument durchlaufen und die Schriftfarbe ändert.
With ActiveDocument.InlineShapes(1)
If .HasChart Then
With .Chart.Legend
For i = 1 To .LegendEntries.Count
.LegendEntries(i).Font.ColorIndex = 5
Next
End With
End If
End With
Hinweis
[!HINWEIS] Although the following code applies to Microsoft Word, you can readily modify it to apply to PowerPoint.
Verwenden Sie LegendEntries (Index), wobei index die Indexnummer des Legendeneintrags ist, um ein einzelnes LegendEntry-Objekt zurückzugeben. Sie können nicht namentlich Legendeneinträge zurückgeben.
Die Indexnummer stellt die Position des Eintrags innerhalb der Legende dar.
LegendEntries(1) steht oben in der Legende, LegendEntries(LegendEntries.Count) unten. Im folgenden Beispiel wird der Schriftschnitt des Legendeneintrags oben in der Legende (in der Regel die Legende für die erste Datenreihe) im ersten Diagramm aktiven Dokuments in kursiv geändert.
With ActiveDocument.InlineShapes(1)
If .HasChart Then
.Chart.Legend.LegendEntries(1).Font.Italic = True
End If
End With
Siehe auch
PowerPoint-Objektmodellreferenz
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.