シート上のチャートオブジェクトを全て削除する

Visual Basic for Applications

Sub Macro()
  Dim ChartNumber As Integer
  Dim iii As Integer
  ChartNumber = ActiveSheet.ChartObjects.Count
  If ChartNumber <> 0 Then
    For iii = 1 To ChartNumber
      ActiveSheet.ChartObjects(1).Activate 'ChartObjectsインデックス番号は常に1
      ActiveChart.Parent.Delete
    Next
  End If
End Sub