ExcelVBAマクロについて確認させてください。

質問

ExcelVBAマクロについて確認させてください。

添付ファイルのような形式のデータがあり、このデータを使い、積み上げ縦棒のグラフを作成したいです。
次のような条件で作成する方法をご教授いただければと思います。

・AからFまでの文字は横軸ラベルにしてAAからCCまでのデータは凡例に表示する。（XX～ZZは表示しない）

・サイズは幅600、高さ400

・位置は左から10、上から500の位置

・プログラムの最初に既存のグラフをクリア

回答No.1

mt2015

埋め込みグラフで良いんですよね？
手抜き版ですが参考までに……。

Sub Sample()
　　With ActiveSheet
　　　　For i = .ChartObjects.Count To 1 Step -1
　　　　　　.ChartObjects(i).Delete
　　　　Next i
　　　　.Shapes.AddChart(xlColumnStacked).Select
　　End With

　　With ActiveChart
　　　　.SetSourceData Source:=Range("Sheet1!B2:E9")
　　　　.SeriesCollection(1).Name = "=Sheet1!C2"
　　　　.SeriesCollection(2).Name = "=Sheet1!D2"
　　　　.SeriesCollection(3).Name = "=Sheet1!E2"
　　　　.ChartArea.Left = 10
　　　　.ChartArea.Top = 500
　　　　.ChartArea.Width = 600
　　　　.ChartArea.Height = 400
　　End With
End Sub