- ベストアンサー
Excel グラフ一括作成
添付画像の通り、同じ様式の表があるシートが複数あります。 中身の値だけシートによって異なります。 各シートのグラフを一括作成する方法はありますか？ 自分でVBAを書くことはできませんが、マクロの記録はできます。 なにかテクニックはありませんか？
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ＶＢＡ利用が最適でしょう。 以下は、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 ・その他のグラフの表現のバラエティは、その操作を手作業でして、マクロの記録を取って、マクロのコード上で、どこにどう表れるか、推定して、ＶＢＡのコードに取り入れ、実際実行して、確かめてください。
お礼
ご回答ありがとうございます。 マクロの記録でコードを勉強してみます。 本当に助かりました。