グラフの削除を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
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_3_thumbnail_img_sm.png)
お礼
ご回答ありがとうございます。試したのですが、シート全体を印刷します。一つの時の例のように、グラフのみ印刷したいのですが。