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.
Gibt ein Objekt zurück, das entweder eine Reihe (ein Series-Objekt ) oder eine Sammlung der Reihe (ein SeriesCollection-Objekt ) im Diagramm oder der Diagrammgruppe darstellt.
Syntax
Ausdruck verwendet werden. SeriesCollection (Index)
Ausdruck: Eine Variable, die ein Chart-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Index | Optional | Variant | Der Name oder die Indexnummer der Datenreihe. Wenn Index nicht angegeben ist, gibt die SeriesCollection-Methode alle Reihen im Diagramm zurück. |
| Index | Optional | Variant |
Rückgabewert
Object
Beispiel
Um eine einzelne Reihe zu erhalten, geben Sie den Index-Parameter an. Im folgenden Beispiel wird der erste Wert der Reihe "Ist-Arbeit" gedruckt. Der erste Aufruf der SeriesCollection-Methode ruft die Auflistung aller Reihen im Diagramm ab. Der zweite Aufruf der SeriesCollection-Methode ruft eine bestimmte Reihe ab.
Sub GetSeriesValue()
Dim reportName As String
Dim theReportIndex As Integer
Dim theChart As Chart
Dim seriesInChart As SeriesCollection
Dim chartSeries As Series
reportName = "Simple scalar chart"
If (ActiveProject.Reports.IsPresent(reportName)) Then
' Make the report active.
theReportIndex = ActiveProject.Reports(reportName).Index
ActiveProject.Reports(theReportIndex).Apply
Set theChart = ActiveProject.Reports(theReportIndex).Shapes(1).Chart
Set seriesInChart = theChart.SeriesCollection
If (seriesInChart.Count > 1) Then
Set chartSeries = theChart.SeriesCollection("Actual Work")
Debug.Print "Value of the Actual Work series, for task " & chartSeries.XValues(1) _
& ": " & chartSeries.Values(1)
End If
End If
End Sub
Das Ausführen des GetSeriesValue-Makros in einem Diagramm, das einen Diagramm der Ist-Arbeit für Aufgaben enthält, könnte z. B. die folgende Ausgabe haben: Value of the Actual Work series, for task T1: 16
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.