Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAでデータ系列を追加する

VBAでデータ系列を追加する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「vba グラフ 系列追加」
といった検索キーワードで、このサイト・インストラクターのネタ帳へのアクセスがありました。

手作業による系列の追加はちょっと面倒

下図のようなグラフが既に存在しているときに、

VBAで系列を追加する

あとからデータ系列を追加して、下図のような状態にすることができます。

VBAで系列を追加する

ただし、データ範囲がちょっと複雑になると下図のような［データソースの選択］ダイアログで、

VBAで系列を追加する

あちこち指定するのは、なかなか面倒ですから、
「vba グラフ 系列追加」
と検索なさった方の気持ちは、よく理解できます。

系列を追加するサンプルマクロ

Excel VBAで系列を追加するなら、以下のようなSubプロシージャです。

Sub 系列を追加する()
　Dim ws As Worksheet
　Set ws = ActiveSheet

　Dim cho As ChartObject
　Set cho = ws.ChartObjects(1)

　Dim srs As Series
　Set srs = cho.Chart.SeriesCollection.Add(Range("C5", "C8"))
　srs.Name = "=" & ws.Name & "!A5"
　srs.XValues = Range("B5", "B8")
End Sub

サンプルマクロで行っている処理

SeriesCollectionコレクションのAddメソッドで、

Set srs = cho.Chart.SeriesCollection.Add(Range("C5", "C8"))

［系列値］を追加して、

VBAで系列を追加する

SeriesオブジェクトのNameプロパティで、

srs.Name = "=" & ws.Name & "!A5"

［系列名］を指定し、

VBAで系列を追加する

SeriesオブジェクトのXValuesプロパティで、

srs.XValues = Range("B5", "B8")

［軸ラベルの範囲］を指定しています。

VBAで系列を追加する

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


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

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAでデータ系列を追加する

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓
3年前(2021年4月)の
人気記事
1位:Windows 10で手書き入力するIMEパッドを表示するには
2位:IF関数で○○以上××以下という条件を指定する
3位:右から（後から・末尾から）n文字を削除したい
4位:IF関数で空白なら空白にする
5位:COUNTIF関数で「○○以上」「○○以下」の指定
6位:IF関数で空白でない場合・空白でなければの書き方
7位:左から（前から・先頭から）n文字削除する方法



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

検索


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

.