Método Chart.SeriesCollection (Project)

Artigo
04/07/2023

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

Sintaxe

expressão. SeriesCollection (Índice)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Opcional	Variantes	O nome ou o número de índice da série. Se Index não for especificado, o método SeriesCollection retornará todas as séries no gráfico.
Índice	Opcional	Variantes

Valor de retorno

Object

Exemplo

Para obter uma única série, especifique o parâmetro Index . O exemplo a seguir 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, executar a macro GetSeriesValue em um gráfico que inclui um plot de trabalho real para tarefas, pode ter a seguinte saída: 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.

Compartilhar via