新しいグラフを作成すると、既存グラフが新しいグラフと同一になってしまう。
Excel2003のVBAにて次のマクロを作成し、実行したところ、
新しいグラフを作成すると、既存グラフが新しいグラフと同一になってしまいます。
グラフは月度毎に作成します。
1月度のグラフを作成すると、
11月度のグラフ・12月度のグラフが、1月度のグラフと同じものになってしまいます。
マクロ作成時には、グラフ要素データの変化が小さく気が付かなかったのですが、グラフ要素データの変化が大きくなった時点で気が付きました。
解決方法をご存じの方、是非ともご教授願います。
'A:グラフを作成するシートの番号
'Sheets("Positions"):グラフを作成する位置データ保管庫
'L,T,W,H:グラフの位置データ(グラフを作成する都度指定)
'E:グラフ要素仕訳標
'F:作成したグラフの名前の保管場所標(グラフ要素変更時にグラフを更新するため)
Sheets(A).Select
NN = Sheets(A).Name
With Sheets(A).ChartObjects.Add(L, T, W, H)'L
.Chart.ChartType = xlDoughnut
If E = 0 Then
.Chart.SetSourceData Source:=Sheets("Positions").Range("Q1:Q11"), PlotBy:=xlColumns
Else
.Chart.SetSourceData Source:=Sheets("Positions").Range("R1:R11"), PlotBy:=xlColumns
End If
.Chart.Location Where:=xlLocationAsObject, Name:=NN
.Chart.HasTitle = False
.Chart.HasLegend = False
.Chart.ChartArea.Border.LineStyle = 0
.Chart.ChartArea.Interior.ColorIndex = xlNone
.Chart.PlotArea.Border.LineStyle = xlNone
.Chart.PlotArea.Interior.ColorIndex = xlNone
End With
R = Sheets(A).ChartObjects.Count
Sheets("Positions").Cells(F, 3) = Sheets(A).ChartObjects(R).Name
お礼
早速、ありがとうございます！ 頑張ってみます。