Excel グラフ一括作成

質問

添付画像の通り、同じ様式の表があるシートが複数あります。
中身の値だけシートによって異なります。
各シートのグラフを一括作成する方法はありますか？
自分でVBAを書くことはできませんが、マクロの記録はできます。
なにかテクニックはありませんか？

回答No.1

imogasi · ベストアンサー

ＶＢＡ利用が最適でしょう。
以下は、3シートの例で説明します。
Ｓｈｅｅｔ１、Ｓｈｅｅｔ２、Ｓｈｅｅｔ３の３つにシートにセル範囲的に同じ場所にデータがあり、それを対象にグラフを描くとします。
グラフは、データのあるシートに、描くものとします。
Ｓｈｅｅｔ１　Ａ１：Ｃ２
a b c
12 23 17
Ｓｈｅｅｔ２　Ａ１：Ｃ２
a b c
55 68 53
Ｓｈｅｅｔ３　Ａ１：Ｃ２
a b c
34 87 44
ーーー
標準モジュールに
Sub test04()
For Each sh In Worksheets
With sh.Shapes.AddChart.Chart
'.ChartType = xlColumnClustered　’棒グラフの一種
.ChartType = xlLine　’折れ線
.SetSourceData Source:=sh.Range("A1:C2")　’対象データ範囲
.Location Where:=xlLocationAsObject, Name:=sh.Name　’データのあるシートに描画
End With
Next
End Sub
・シート数が増えても変える必要なし。シート名は、どう定義していても関係なし。
・対象データ範囲は、各シートで、シートの同じ範囲、同じ場所と仮定している。
・グラフの鵜類の指定は、Ｇｏｏｇｌｅで、「エクセル　ＶＢＡ　円グラフ」などで照会して、ｘｌ・・・を、探してください。列挙体という。
参考
https://www.relief.jp/docs/excel-vba-xlchartype-list.html
・その他のグラフの表現のバラエティは、その操作を手作業でして、マクロの記録を取って、マクロのコード上で、どこにどう表れるか、推定して、ＶＢＡのコードに取り入れ、実際実行して、確かめてください。

お礼

ご回答ありがとうございます。
マクロの記録でコードを勉強してみます。
本当に助かりました。