グラフ消去 その２ EXCEL VBA

以前にグラフの消去方法（2008-11-26）を記載しましたが、
消去コードや方法を少し変更しました。
A-Typeは１つめのグラフを残したまま２つめのグラフを消去します。
B-Typeは複数ある内の１つを指定して消去します。

Sub シート上に複数のグラフがある場合の消去方法()
If ActiveSheet.ChartObjects.Count >= 2 Then Call グラフ消去A
End Sub

Sub グラフ消去A()
ActiveSheet.ChartObjects(2).Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete
End Sub

Sub グラフ消去B()
X = Application.InputBox(prompt:="何番目のグラフを消去しますか", Type:=1)
ActiveSheet.ChartObjects(X).Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete
End Sub