Метод Chart.SeriesCollection (Project)

Статья
04/07/2023

Возвращает объект, представляющий один ряд (объект Series ) или коллекцию ряда (объект SeriesCollection ) в диаграмме или группе диаграмм.

Синтаксис

expression. SeriesCollection (Индекс)

выражение: переменная, представляющая объект Chart.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Необязательный	Variant	Имя или номер индекса ряда. Если индекс не указан, метод SeriesCollection возвращает все ряды на диаграмме.
Индекс;	Необязательный	Variant

Возвращаемое значение

Object

Пример

Чтобы получить один ряд, укажите параметр Index . В следующем примере выводится первое значение серии "Фактическая работа". Первый вызов метода SeriesCollection получает коллекцию всех рядов на диаграмме. Второй вызов метода SeriesCollection получает один конкретный ряд.

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

Например, выполнение макроса GetSeriesValue на диаграмме, включающей график фактических работ для задач, может иметь следующие выходные данные: Value of the Actual Work series, for task T1: 16

См. также

Объект Chart

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.