title | ms.service | ms.assetid | ms.date | ms.localizationpriority |
---|---|---|---|---|
SeriesCollection object (Project) |
project-server |
2065e328-f82c-266f-e34c-fa99100c862e |
06/08/2017 |
medium |
Represents a collection of data series (Series objects) in a chart.
Each series is a collection of related data that represents a row or a column in a chart. The names of the series are typically displayed in the chart legend.
The following example prints the series names, X (horizontal) values, and Y (vertical) values for a collection of data series on a chart.
Sub TestChartSeries()
Dim reportName As String
Dim theReportIndex As Integer
Dim theChart As Chart
Dim seriesCollec As SeriesCollection
Dim chartSeries As Series
Dim i As Integer
Dim j As Integer
reportName = "Simple scalar chart"
theReportIndex = -1
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 seriesCollec = theChart.SeriesCollection()
For i = 1 To seriesCollec.Count
Set chartSeries = seriesCollec(i)
If (IsEmpty(chartSeries.Name)) Then
Debug.Print "Series " & i & " name is an empty string."
Else
Debug.Print "Series " & i & ": " & chartSeries.Name
End If
For j = 1 To seriesCollec.Count
Debug.Print vbTab & "X, Y values(" & j & "): " & chartSeries.XValues(j) _
& ", " & chartSeries.Values(j); ""
Next j
Next i
End If
End Sub
The following sample output is from a chart such as the example in the Chart object documentation.
Series 1: Actual Work
X, Y values(1): T1, 16
X, Y values(2): T2 - new, 32
X, Y values(3): T3, 7
Series 2: Remaining Work
X, Y values(1): T1, 0
X, Y values(2): T2 - new, 16
X, Y values(3): T3, 17
Series 3: Work
X, Y values(1): T1, 16
X, Y values(2): T2 - new, 48
X, Y values(3): T3, 24
Name |
---|
Item |
Name |
---|
Application |
Count |
Creator |
Parent |
[!includeSupport and feedback]