Объект Series (Project)
Представляет коллекцию связанных данных, которые составляют строку или столбец на диаграмме.
Объект Series является членом коллекции SeriesCollection , которая включает все ряды данных на диаграмме. Имя ряда часто отображается в условных обозначениях диаграммы.
В следующем примере отображаются имена рядов, значения X (по горизонтали) и значения Y (вертикальные) для коллекции рядов данных на диаграмме.
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
Следующий пример выходных данных приведен на диаграмме, например в документации по объекту Chart .
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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.