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社」と変更する処理は、ご紹介済みの考え方を利用しています。

理解するExcel VBA／グラフ操作の基本
伊藤潔人 2022-06-10
Amazon


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

［スポンサードリンク］

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

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


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

検索


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

.