次の方法で共有


Chart.SeriesCollection メソッド (Project)

グラフまたはグラフ グループ内の 1 つの系列 ( Series オブジェクト) または系列のコレクション ( SeriesCollection オブジェクト) を表すオブジェクトを返します。

構文

SeriesCollection (Index)

expressionChart オブジェクトを表す変数です。

パラメーター

名前 必須 / オプション データ型 説明
Index 省略可能 バリアント型 データ系列の名前またはインデックス番号を指定します。 Index が指定されていない場合、SeriesCollection メソッドはグラフ内のすべての系列を返します。
インデックス 省略可能 バリアント型

戻り値

Object

1 つの系列を取得するには、 Index パラメーターを指定します。 次の例では、"Actual Work" シリーズの最初の値を出力します。 SeriesCollection メソッドの最初の呼び出しは、グラフ内のすべての系列のコレクションを取得します。 SeriesCollection メソッドの 2 番目の呼び出しでは、特定の系列が 1 つ取得されます。

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 のサポートおよびフィードバックを参照してください。