Chart.SeriesCollection, méthode (Project)

Article
04/07/2023

Renvoie un objet qui représente une série (un objet Series ) ou une collection de la série (objet SeriesCollection ) dans le graphique ou le groupe de graphiques.

Syntaxe

expression. SeriesCollection (Index)

expression Variable qui représente un objet Chart.

Parameters

Nom	Requis/Facultatif	Type de données	Description
Index	Facultatif	Variant	Nom ou numéro d’index de la série. Si Index n’est pas spécifié, la méthode SeriesCollection retourne toutes les séries du graphique.
Index	Facultatif	Variant

Valeur renvoyée

Object

Exemple

Pour obtenir une série unique, spécifiez le paramètre Index . L’exemple suivant imprime la première valeur de la série « Travail réel ». Le premier appel à la méthode SeriesCollection obtient la collection de toutes les séries du graphique. Le deuxième appel à la méthode SeriesCollection obtient une série spécifique.

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

Par exemple, l’exécution de la macro GetSeriesValue sur un graphique qui inclut un tracé du travail réel pour les tâches peut avoir la sortie suivante : Value of the Actual Work series, for task T1: 16

Voir aussi

Objet Chart

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via