Método Chart.SeriesCollection (Project)

Devolve um objeto que representa uma série (um objeto Série ) ou uma coleção da série (um objeto SeriesCollection ) no gráfico ou grupo de gráficos.

Sintaxe

expressão. SeriesCollection (Índice)

expressão Uma variável que representa um objeto Chart.

Parâmetros

Valor de retorno

Object

Exemplo

Para obter uma única série, especifique o parâmetro Índice . O exemplo seguinte imprime o primeiro valor da série "Trabalho Real". A primeira chamada para o método SeriesCollection obtém a coleção de todas as séries no gráfico. A segunda chamada para o método SeriesCollection obtém uma série específica.

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

Por exemplo, a execução da macro GetSeriesValue num gráfico que inclui um gráfico de trabalho real para tarefas pode ter o seguinte resultado: Value of the Actual Work series, for task T1: 16

Confira também

Objeto Chart

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.