動作検証バージョン:64bit Windows 10 Pro + 32bit Excel(バージョン2111 ビルド14701.20262 Microsoft Store)
「vba データ系列 削除」
「マクロ グラフ 系列 消す」
「エクセル マクロ グラフ 特定の系列を削除」
といった検索キーワードで時折アクセスがあります。
Series.Dleteでグラフのデータ系列を削除できる
Excel VBAでグラフの系列を削除するには、個々のデータ系列を表すSeriesオブジェクトに用意されている、Deleteメソッドを使います。
1つ目の系列を削除するサンプル
Excelで、複数の系列の存在する棒グラフや折れ線グラフを選択しておいてから以下のSubプロシージャを実行すると、1つ目の系列が削除されます。
Sub 一つ目の系列を削除する()
ActiveChart.SeriesCollection.Item(1).Delete
End Sub
ActiveChart.SeriesCollection.Item(1).Delete
End Sub
Chartオブジェクトに用意されているSeriesCollectionメソッドで、
1つのグラフの全系列を表すSeriesCollectionコレクションを取得し、
1つ目の系列を表すSeriesオブジェクトを取得して、Series.Deleteメソッドで削除を行っています。
「.Item」は省略可能
SeriesCollectionコレクションにも、非表示状態の既定メンバー_Defaultメソッドが用意されていますから、
先ほどのコード
ActiveChart.SeriesCollection.Item(1).Delete
は「.Item」を省略して、
ActiveChart.SeriesCollection(1).Delete
と書いても同じ結果になります。
最後の系列を削除するサンプル
以下のSubプロシージャで、最後の系列を削除できます。
Sub 最後の系列を削除する()
With ActiveChart.SeriesCollection
.Item(.Count).Delete
End With
End Sub
With ActiveChart.SeriesCollection
.Item(.Count).Delete
End With
End Sub
最後の系列を表すSeriesオブジェクトを取得するために、
SeriesCollection.Countプロパティも利用しています。
最終更新日時:2022-07-17 11:15
[スポンサードリンク]
Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAで系列を削除する-Series.Delete