グラフの削除をExcelVBAで行う

質問

こんばんは。同じシートの中にグラフを３つ作成し、
コマンドボタンを押すとグラフを削除し、新しいグラフを作成するようにしたいのですが、グラフの３つ目を削除のしようとするとエラーが発生してしまいます。
２つ目までは順調に消えるのですが、３つ目のグラフが削除されないのはなぜなのでしょうか。
色々教えていただき何とか形になってきたのですが、確認すると色々とぼろがでてきてしまい、困っています。
どなたか教えていただけないでしょうか。
宜しくお願い致します。

Sub Glafu()
Dim chartobj As ChartObject

Worksheets("ABC").Activate
ActiveSheet.ChartObjects(1).Delete
ActiveSheet.ChartObjects(2).Delete
ActiveSheet.ChartObjects(3).Delete

Set chartobj = Worksheets("ABC").ChartObjects.Add(600, 0, 300, 200)
chartobj.Chart.SetSourceData Worksheets("ABC").Range(Range("b2").End(xlDown), ActiveCell.End(xlToRight))
With Worksheets("ABC").ChartObjects(1).Chart
.HasTitle = True
.charttaitle.Text = "タイトル１"
End With

Set chartobj = Worksheets("ABC").ChartObjects.Add(600, 200, 300, 200)
chartobj.Chart.SetSourceData Worksheets("ABC").Range(Range("e2").End(xlDown), ActiveCell.End(xlToRight))
With Worksheets("ABC").ChartObjects(1).Chart
.HasTitle = True
.charttaitle.Text = "タイトル２"
End With

Set chartobj = Worksheets("ABC").ChartObjects.Add(600, 400, 300, 200)
chartobj.Chart.SetSourceData Worksheets("ABC").Range(Range("h2").End(xlDown), ActiveCell.End(xlToRight))
With Worksheets("ABC").ChartObjects(1).Chart
.HasTitle = True
.charttaitle.Text = "タイトル３"
End With
End Sub

回答No.1

n-jun · ベストアンサー

Sub try1()
Dim i As Integer

For i = 1 To 3
Debug.Print ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(i).Delete
Next

End Sub

をやってみた感じでですが、

・グラフ１を削除する際にはグラフは３つありますので、グラフ１は存在します。
・グラフ２を削除する際にはグラフは２つありますので、グラフ２は存在します。
・グラフ３を削除する際にはグラフは１つしかありませんので、グラフ３は存在しません。

と言う事なのでは？
＞ChartObjects(1)
存在するグラフ１であって、”Chart 1”と言うグラフ名ではないのでしょう。

対策としては、

Sub try2()
Dim ch As Excel.ChartObject

For Each ch In ActiveSheet.ChartObjects
ch.Delete
Next

End Sub

こんな方法とか？
⇒説明があっているかは、ちょっと自信ないですけど。

お礼

グラフの１とかと指定しているのかと思っていたのですが、
そうではなく１つ２つとカウントされていにたに過ぎなかったんですね。
おかげさまで解決できました。
ありがとうございました。