【VBA】グラフ(Chart)を削除する方法
今回はVBAを用いてグラフを削除する2つの方法を紹介します。
シート上のすべてのグラフを削除してしまうコードと、特定のグラフだけを削除するコードをお見せいたします。
VBAが難しいと感じたら
からすべてのグラフを削除する方法
Sub ErazeAllGraph()
'''アクティブシート上のすべてのグラフを削除
ActiveSheet.ChartObjects.Delete
End Subシート上のすべてのグラフを削除してしまいたい場合は、この1行だけでOKです。
ChartObjects.Deleteとすることでシート上のすべてのグラフを削除しています。
特定のグラフを削除する方法
Sub ErazeOneGraph()
'''タイトルが「削除対象」のグラフを削除
Dim oneChart As ChartObject
For Each oneChart In ActiveSheet.ChartObjects
If oneChart.Chart.ChartTitle.Text = "削除対象" Then
oneChart.Delete
End If
Next
End Sub
特定のグラフを削除したい場合はこのようなコードを書きます。
このコードを実行すると、タイトルが「削除対象」のグラフをすべて削除していきます。
For Each oneChart In ActiveSheet.ChartObjectsこの部分でシート上のグラフオブジェクトを１つずつ取り出しています。
If oneChart.Chart.ChartTitle.Text = "削除対象" Then
oneChart.Delete
End Ifこの部分でグラフオブジェクトのタイトルが「削除対象」であるかを判定して、タイトルが一致する場合にはグラフオブジェクトを削除しています。
VBAが難しいと感じたら