エクセル 貼り付けたグラフからデータを取り出すには

質問

ブック１にデータがあり、そのデータを使ってグラフを作成します。
そのグラフをブック２に貼り付けて、ブック１は削除します。

このような状況において、ブック２のグラフからグラフを描いた
数字データを取り出したいのですが、可能でしょうか？

回答No.1

zap35

シートのデータを単純にグラフにした場合はできません。

ただしブック１で作成したグラフがグラフオブジェクトとして作成されているのであれば、オブジェクトにデータも同梱されているので、「右クリック」→「グラフオブジェクト」→「編集」でデータを表示させることが可能です。

グラフオブジェクトは「挿入」→「オブジェクト」→「Microsoft Graph グラフ」で作成できます。

お礼

回答ありがとうございます。
昔教えてもらった以下のコードをようやく探し出せました。
Sub DataPickupfromChart()
　 Dim myData As Variant, vls As Variant, i As Long
　 Dim j As Long, u As Long
　 If Not IsEmpty(ActiveCell) Then _
　 MsgBox "何も書かれていない場所に設定してください", 64: Exit Sub
　 With ActiveSheet.ChartObjects(1).Chart
　　　ReDim myData(.SeriesCollection.Count - 1)
　　　For Each vls In .SeriesCollection
　　　　 ActiveCell.Offset(, i).Value = vls.Name
　　　　 myData(i) = vls.Values
　　　　 i = i + 1
　　　Next vls
　 End With
　 u = UBound(myData(0))
　 For j = LBound(myData) To UBound(myData)
　　　ActiveCell.Offset(1, j).Resize(u).Value = _
　　　Application.WorksheetFunction.Transpose(myData(j))
　 Next j
End Sub