No.1
- 回答日時:
こんにちは。
こちらでも一度試してみましたが、元のデータが消えるとグラフの方もデータがないためにエラー表示されます。
確かにグラフ自体は残りますが正確なグラフではなくなってしまいます...。
この作業を行った経緯をお教え下さい。
また、そのまま保存してしまって元のファイルは無い状態なんでしょうか?
回答ありがとうございます。
>こちらでも一度試してみましたが、元のデータが消えるとグラフの方もデータがないためにエラー表示されます。
こちらでは特にエラー表示されることはありません。
>確かにグラフ自体は残りますが正確なグラフではなくなってしまいます...。
こちらではグラフも正確なままです。
>この作業を行った経緯をお教え下さい。
人から貰ったファイルがそうだったというだけです。
>また、そのまま保存してしまって元のファイルは無い状態なんでしょうか?
人から貰ったファイルなので、残念ならが元のファイルはこちらの
手元にはありません。
No.2ベストアンサー
- 回答日時:
こんにちは。
今、棒グラフと折れ線グラフで試してみましたが、取り出せます。
設定の仕方:
Alt + F11 (Altを押しながらF11)を押すと、Visual Basic Editor 画面が出てきます。
次に、メニューの[挿入]-[標準モジュール]と開けて、クリックすると、画面が現れますので、このコードを貼り付けて、再び、Alt + F11 で、画面を閉じます。
後は、何も書かれていない場所に、セルポインタをおき、Alt + F8 で、DataPickupfromChart を実行してみてください。ただし、グラフの場合は、経験的に全てのバージョンで成功するとは限りません。とにかく試してみてください。
'<標準モジュール>
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- 物理学 測定データの読み方について教えて下さい 6 2023/07/09 16:43
- Excel(エクセル) エクセルのグラフに上下限値の横棒を表示させたい 5 2022/12/12 11:09
- Excel(エクセル) Excelグラフについて 1 2023/05/12 16:26
- 計算機科学 エクセルのデータの表すことについて 2 2023/03/05 20:49
- Excel(エクセル) Excelグラフについて 1 2022/06/16 16:06
- Excel(エクセル) エクセル VBAでBook モジュールのプロシージァ(コード)に除外シートを設定したい 1 2023/01/11 15:53
- Excel(エクセル) Excelで日付のグラフへの表示 2 2022/04/15 11:04
- その他(教育・科学・学問) こんにちは!今日中に締め切りなので至急お願いしたのですが、初めて大学でレポートを書きます! グラフの 1 2023/07/12 01:45
- Excel(エクセル) Googleスプレッドシートの割合の関数と円グラフの並べ替えについて 1 2022/07/22 17:31
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルのグラフで値を求める方法
Excel(エクセル)
-
Excel グラフのプロットからデータを見つける
Excel(エクセル)
-
Excel2010 グラフの元データを表示するには
その他(Microsoft Office)
-
-
4
エクセルのグラフ読み取りについて
その他(Microsoft Office)
-
5
パワポに張り込まれたグラフからデータを抽出する方法
PowerPoint(パワーポイント)
-
6
パワーポイントに貼り付けたエクセルデータをエクセルに戻す方法
PowerPoint(パワーポイント)
-
7
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
8
グラフからデータを抽出する方法
画像編集・動画編集・音楽編集
-
9
エクセルでグラフの元データがどこかわからない
Excel(エクセル)
-
10
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
11
EXCELでコピーしたグラフのデータ範囲変更について
Excel(エクセル)
-
12
グラフの元のデータを消してもグラフの表示を残す方法
Visual Basic(VBA)
-
13
グラフ曲線で、y値を指定するとx値がわかる関数
Excel(エクセル)
-
14
excel vbaでグラフとグラフ元データを別のexcelファイルにコピーしてもらうプログラムを作っ
Excel(エクセル)
-
15
Wordでこのような三角が出てくるようになってしまったのですがどうやったら消せますか?
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのグラフ作成で軸を等...
-
エクセルの縦軸(Y軸)が不均等...
-
Excelでx軸とy軸を設定して図を...
-
EXCELでグラフを作るとき、縦軸...
-
Excelグラフの有効数字の統一が...
-
エクセルで式からグラフを作成...
-
エクセルで一つのグラフを複数...
-
エクセルのグラフの1点の色を変...
-
パワーポイントで円グラフが作...
-
散布図を縦に2個並べて出力したい
-
EXCELのプロットエリアサイズの...
-
エクセルで折れ線グラフ(散布...
-
Excelマクロ・グラフエリア・プ...
-
エクセルの対数グラフのエラー
-
x-y座標に10個ぐらいの点をプロ...
-
結合されたセルのグラフ表示
-
Excel:別シートにグラフを貼り...
-
エクセルの円グラフをグラフエ...
-
エクセルのマクロを使ってデー...
-
30品目以上のExcelの折れ線グラ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのグラフ作成で軸を等...
-
EXCELでグラフを作るとき、縦軸...
-
エクセルの縦軸(Y軸)が不均等...
-
Excel:別シートにグラフを貼り...
-
エクセルの円を5等分する方法
-
Excelでx軸とy軸を設定して図を...
-
エクセルで折れ線と散布図を同...
-
エクセル 0や空白のセルをグラ...
-
エクセルで折れ線グラフ(散布...
-
エクセルの対数グラフのエラー
-
エクセルで、極座表のグラフ描...
-
Excelのグラフ軸について
-
<EXCELグラフ>データ取得範囲...
-
エクセル グラフの”データーテ...
-
ExcelでIF関数によるグラフの表...
-
散布図を縦に2個並べて出力したい
-
EXCELのグラフ作成時に元データ...
-
エクセルで式からグラフを作成...
-
Excelグラフの有効数字の統一が...
-
Excelの横棒グラフのプロットエ...
おすすめ情報