[[20200425235810]]　『VBAで空白の系列を削除したいです。』（もも）　ページの最後に飛ぶ

『VBAで空白の系列を削除したいです。』（もも）

【VBA】
アクティブシート上の全グラフにおいて、空白の系列を全て削除するマクロを実行したいです。

Sub Sample()

 Dim ch As ChartObject
 Dim i As Long

 For Each ch In ActiveSheet.ChartObjects
For i = 1 To ch.Chart.SeriesCollection.Count
If ch.Chart.SeriesCollection(i).Name = "" Then
ch.Chart.SeriesCollection(i).Delete
End If
Next i
Next ch
 End Sub

上記のコードを標準モジュールに記入したところ、If ch.Chart.SeriesCollection(i).Name = "" Then
パラメータは無効ですというエラーが生じてしまいます。

このエラーの原因と解決方法および正しいコードをご教授いただきたいです。よろしくお願いします。

＜使用 Excel：Excel2016、使用 OS：unknown ＞

[[20200426000449]]　『VBAで空白の凡例を削除したいです。』

↑に移動。重複のようなので、こちらには書き込まないでください。

（マナ） 2020/04/26(日) 07:30

コメント返信：

[ 一覧(最新更新順) ]

[[20200425235810]] 『VBAで空白の系列を削除したいです。』（もも） ページの最後に飛ぶ

[[20200425235810]]　『VBAで空白の系列を削除したいです。』（もも）　ページの最後に飛ぶ