Document

アルゴリズム
最大値や平均の求め方
セルに「関数」を書き込むことにより、
Excelの機能をそのまま利用する。
Range("B2").Value = "=MAX(A2:A5)"
シート上のグラフの削除
「ChartObjects」オブジェクトを使って、グラフの個数のカウントや削除を行う
ActiveSheet.ChartObjects("グラフ１").Delete
「グラフ１」を削除する
If ChartObjects.Count > 0 Then ChartObjects.Delete
シート上のグラフの個数が0より多ければ
（シート上にグラフがあれば）
グラフを全削除
シート上のグラフを全削除

Download Report