埋め込みグラフを作る その4(埋め込みグラフの削除)

たとえば，グラフをgifファイルにしてそのファイルをWebで公開するときに同じデータを使って違う種類のグラフや列だけちょっと変えて表示したい場合などには一回そのグラフを削除して再度違う種類のグラフを作成したいということがありました．そういった場合は以下のようにするとおいしかったので示しておきます．埋め込みグラフを削除する方法です．グラフ作成は前回までのと同様のコードを用います．

【事例】
Sub graph_delete()
With ActiveSheet.ChartObjects.Add(50, 100, 300, 200).Chart
.SetSourceData Sheets("sheet1").Range("A3:D6")
End With

ActiveSheet.ChartObjects.ShapeRange.Name = "test"

ActiveSheet.ChartObjects("test").Delete

End Sub

【解説】
赤字のように，"オブジェクト.Delete"で消すことができます（ここでもファイル名の設定が役に立ってます）．実際にはファイル名の設定をしなくても"ActiveSheet.ChartObjects.ShapeRange.Delete"のようにしても消せると思います（僕は消せました）．削除ものはちょっとどきどきするので慎重に行きましょう．