HOME > 即効テクニック > Excel VBA > グラフ関連のテクニック > Chartの操作−データ範囲の取得

即効テクニック

グラフ関連のテクニック

Chartの操作−データ範囲の取得

(Excel 97/2000)

サンプルでは既に作成されているChartのデータ範囲を各データ系列ごとにSeriesCollectionからFormulaプロパティーを使用して取得します。

実行結果は"=SERIES(・・・)"という数式の形で得られます。

(前提)シート上のグラフ、コマンドボタン
Private Sub CommandButton1_Click()

Dim objChart As Chart

ActiveCell.Activate 'コマンドボタンからの実行に必要(97のみ)

Set objChart = ActiveSheet.ChartObjects(1).Chart

With objChart.SeriesCollection

    For i = 1 To .Count

    MsgBox "系列" & i & "のソースデータ範囲は ⇒" _
        & vbCrLf & .Item(i).Formula
    
    Next i

End With

End Sub

※For Each ステートメントでSeriesCollectionの各データ系列にアクセスするにはSeriesオブジェクトを使用します。

Dim Srs As Series
For Each Srs In ActiveChart.SeriesCollection
・・・
Next

のようにします。