Excelでチャートやグラフからデータを抽出するにはどうすればよいですか？

Excelのグラフは、データや傾向をより効果的に視覚化するために広く使用されています。しかし、以下の例に示すように、元のデータにアクセスできない場合があり、そのような状況ではチャートからデータを抽出することが重要です。このチュートリアルでは、VBAコードを使用してExcelのチャートやグラフからデータを取り出すためのステップバイステップガイドを提供します。

VBAを使用してチャートからデータを抽出

  VBAを使用してチャートからデータを抽出

1. 新しいワークシートを作成し、「ChartData」と名前変更する必要があります。スクリーンショットをご覧ください：

2. データを抽出したいチャートを選択します。「Alt」+「F11」キーを同時に押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。

3. 「挿入」>「モジュール」をクリックし、以下のVBAコードを「モジュール」ウィンドウに貼り付けます。

Sub GetChartValues()
    'Updateby20220510
    Dim xNum As Integer
    Dim xSeries As Object
    On Error Resume Next
    xCount = 2
    xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values)
    Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
    With Application.Worksheets("ChartData")
        .Range(.Cells(2, 1), _
        .Cells(xNum + 1, 1)) = _
        Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
    End With
    For Each xSeries In Application.ActiveChart.SeriesCollection
        Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
        With Application.Worksheets("ChartData")
            .Range(.Cells(2, xCount), _
            .Cells(xNum + 1, xCount)) = _
            Application.WorksheetFunction.Transpose(xSeries.Values)
        End With
        xCount = xCount + 1
    Next
End Sub

4. そして「実行」ボタンをクリックしてVBAを実行します。スクリーンショットをご覧ください：

これで、データが「ChartData」シートに抽出されたのが確認できます。

ヒント：

1. 必要に応じてセルの書式を設定できます。

2. デフォルトでは、選択したチャートのデータは、ChartDataシートの最初のセルから抽出されます。