Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAで系列名を変更する-Series.Nameプロパティ

VBAで系列名を変更する-Series.Nameプロパティ

動作検証バージョン:64bit Windows 10 Pro + 32bit Excel(バージョン2112 ビルド14729.20260 Microsoft Store)

「系列名を変える vba」
「VBA グラフ 系列名変更」
といった検索キーワードで、時折アクセスがあります。

Excel VBAでグラフのデータ系列の名前を変更するには、どのようなコードを書けばいいのかを探していらしたのでしょう。

ワークシート上のデータと関係ない系列名にしたいのであれば、SeriesオブジェクトのNameプロパティに

文字列を指定するだけです。

1つの系列の名前を変更するサンプルマクロ

実在する会社の何らかのデータを比較するようなグラフがあったときに、そのグラフを外部に公開するために会社名を「A社」に変更する、といった例を考えてみました。

グラフがアクティブな状態で以下のSubプロシージャを実行してください。

Sub 系列名を変更する()
 ActiveChart.SeriesCollection(1).Name = "A社"
End Sub

1つ目の系列の名前が「A社」に変更されます。

ChartオブジェクトのSeriesCollectionメソッドで取得できる、

系列を表すSeriesオブジェクトのNameプロパティに

設定したい系列名を代入するだけです。

全系列の名前を変更するサンプルマクロ

グラフがアクティブな状態で以下のSubプロシージャを実行すれば、系列名が「A社」「B社」「C社」のように変更されます。

Sub 系列名を順番に変更する()
 Dim i As Long
 With ActiveChart.SeriesCollection
  For i = 1 To .Count
   .Item(i).Name = Chr(i + Asc("A") - 1) & "社"
  Next
 End With
End Sub

Chart.SeriesCollectionメソッドで取得した全系列を表すSeriesCollectionコレクションに対して

For~Nextループを回して、SeriesCollection.Itemメソッドで取得した

SeriesオブジェクトのNameプロパティを使って社名を設定しています。

For~Nextループ内で社名を「A社」「B社」「C社」と変更する処理は、ご紹介済みの考え方を利用しています。

最終更新日時:2022-06-23 15:02

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAで系列名を変更する-Series.Nameプロパティ

「グラフ・Chart」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.
.