第96回.グラフ（Chart）
マクロVBAでグラフを扱う時の解説になりますが、
グラフの全ては解説しきれませんし、マクロVBAでグラフを全て作成しようとするのはかなり大変です。
雛形のグラフを作成しておき、VBAでは必要な部分のみ変更するようにした方が良いでしょう。
グラフ（Chart）関連のオブジェクト群
VBAでグラフを扱う場合は、以下のオブシェクを使います。
ChartObjectオブジェクトのコレクションです。
ワークシートの埋め込みグラフを表します。
Chartオブジェクトのコンテナーとして機能します。
ChartObject オブジェクトのプロパティとメソッドは、シートにある埋め込みグラフの外観と大きさを制御します。
Chartオブジェクトのコンテナーとして機能します。
ChartObject オブジェクトのプロパティとメソッドは、シートにある埋め込みグラフの外観と大きさを制御します。
Chartオブジェクトのコレクション
ブック内のグラフを表します。
ChartObject オブジェクトに含まれている埋め込みグラフか、独立したグラフ シートのどちらかのグラフです。
ChartObject オブジェクトに含まれている埋め込みグラフか、独立したグラフ シートのどちらかのグラフです。
さらに、Chartオブジェクトのプロパティで参照する下位のオブジェクとして、
ChartGroupオブジェクのコレクション
同じ形式のグラフにプロットされた 1 つまたは複数のデータ系列を表します。
グラフには、1 つ以上のグラフ グループが含まれています、各グラフ種類グループには、1 つまたは複数の Series オブジェクトが含まれている系列ごとに 1 つ以上の Points オブジェクトが含まれています。
グラフには、1 つ以上のグラフ グループが含まれています、各グラフ種類グループには、1 つまたは複数の Series オブジェクトが含まれている系列ごとに 1 つ以上の Points オブジェクトが含まれています。
グラフのSeriesオブジェクトの完全なセットを表します。
フィルターで除外されたSeriesオブジェクトを取得する場合はFullSeriesCollection。を使います。
フィルターで除外されたSeriesオブジェクトを取得する場合はFullSeriesCollection。を使います。
SeriesCollectionコレクション
Seriesオブジェクトのコレクション
グラフのデータ系列を表します。
SeriesCollectionとFullSeriesCollectionの違いについて
SeriesCollectionとの大きな違いは、フィルターで除外されたSeriesオブジェクトを取得できるかどうかです。
FullSeriesCollectionオブジェクトを使用すると、フィルターで除外された Series オブジェクトを取得したり、再び除外したりすることができます。
ここで、系列のチェックを外したときに消した系列を、
含めるのがFullSeriesCollection、含めないのがSeriesCollection
この違いになります。
FullSeriesCollectionオブジェクトを使用すると、フィルターで除外された Series オブジェクトを取得したり、再び除外したりすることができます。
含めるのがFullSeriesCollection、含めないのがSeriesCollection
この違いになります。
これらのコレクション、オブジェクトに、それぞれのプロパティとメソッドがあります。
グラフ（Chart）関連のプロパティ、メソッド一覧
そして、決してこれで全てではありません、下位のオブジェクは他にもたくさんあります。
変更したいプロパティやメソッドのみ、都度調べれば良いでしょう。
プロパティの設定値やメソッドの引数について知りたい場合は、
マクロの記録で自動記録されたVBAコードを参考にするのが最も早く簡単です。
上記の一覧は、マクロの記録で作成されるVBAコードを読む時の参考にしてください。
グラフ（Chart）関連のプロパティ、メソッド一覧
・ChartObjectsコレクション ・・・ ChartObjectオブジェクトのコレクション ・Chartsコレクション ・・・ Chartオブジェクトのコレクション ・Chartオブジェクト ・・・ ブック内のグラフを表します。 ・ChartGroupsコレクション ・・・ ChartGroupオブジェクのコレクション ・ChartGroupオブジェク ・・・ 同じ形式のグラフにプロットされた 1 つまたは複数のデータ系列を表します。 ・SeriesCollectionコレクション ・・・ Seriesオブジェクトのコレクション ・Seriesオブジェクト ・・・ グラフのデータ系列を表します。 ・FullSeriesCollectionコレクション ・・・ フィルター除外されたSeriesを扱えます。
この一覧をご覧いただければわかりますが、非常に多くのプロパティがありますので、とても全てを把握する事は困難です。そして、決してこれで全てではありません、下位のオブジェクは他にもたくさんあります。
プロパティの設定値やメソッドの引数について知りたい場合は、
マクロの記録で自動記録されたVBAコードを参考にするのが最も早く簡単です。
単純な棒グラフの作成
グラフの全てを説明する事はできませんので、以下のサンプルを元に解説します。
この表を元に、棒グラフと、折れ線グラフの２軸グラフを作成します。
ChartObjectオブジェクトは、Chartオブジェクトのコンテナーで、
グラフの入れ物として、グラフの外観と大きさを制御します
ChartObjects.Add
これでグラフを追加しています。
chartObj.Chart
chartObjはChartObjectのオブジェクト変数なので、
これで、ChartObject内の、Chartオブジェクトを取得できることになります。
.ChartType = xlColumnClustered
これで、Chartオブジェクトに対して、グラフ種類を棒グラフに指定しています。
もちろんこのデータの場合は、このグラフではダメですが、
あくまで、単純な棒グラフのVBAコードの参考ということで理解してください。
Sub sample1()
Dim chartObj As ChartObject
Dim MyRange As
Range
Set MyRange = Range("A1").CurrentRegion
Set chartObj = ActiveSheet.ChartObjects.Add(MyRange.Width, MyRange.Top, 300, 200)
With chartObj.Chart
.SetSourceData MyRange
.ChartType = xlColumnClustered
End With
End Sub
ChartObjectオブジェクトは、Chartオブジェクトのコンテナーで、
グラフの入れ物として、グラフの外観と大きさを制御します
ChartObjects.Add
これでグラフを追加しています。
chartObjはChartObjectのオブジェクト変数なので、
これで、ChartObject内の、Chartオブジェクトを取得できることになります。
これで、Chartオブジェクトに対して、グラフ種類を棒グラフに指定しています。
あくまで、単純な棒グラフのVBAコードの参考ということで理解してください。
２軸グラフの作成と、グラフタイトルをA1セルにリンク
Sub sample2()
Dim chartObj As ChartObject
Dim MyRange As
Range
Set MyRange = Range("A1").CurrentRegion
Set chartObj =
ActiveSheet.ChartObjects.Add(MyRange.Width, MyRange.Top, 300, 200)
With
chartObj.Chart
.SetSourceData
MyRange
.SeriesCollection(1).ChartType =
xlColumnClustered
.SeriesCollection(2).ChartType =
xlLineMarkersStacked
.SeriesCollection(1).AxisGroup =
1
.SeriesCollection(2).AxisGroup = 2
.HasTitle =
True
.ChartTitle.Text = "=" & MyRange.Cells(1,
1).Address(ReferenceStyle:=xlR1C1, External:=True)
End With
End
Sub
.SeriesCollection(1).ChartType = xlColumnClustered
.SeriesCollection(2).ChartType = xlLineMarkersStacked
この部分で、系列毎に、グラフの種類を変更しています。
.ChartType = xlColumnClustered
今度は、グラフの系列に対して指定している点に注意して下さい。
この種類で指定する定数は、XlChartTypeクラスの定数になります。
非常に多い事と、あまり使用しないものも多いので、ここでの紹介は割愛します。
VBAリファレンスの XlChartTypeクラスの定数 または、マクロ記録で調べてください。
.SeriesCollection(2).AxisGroup = 2
この部分で、系列毎に、第１軸と第２軸を変更しています。
これで、タイトルを表示して、
これで、タイトルをA1セルにリンクさせています。
この指定をしないと、バージョンによりエラーがでてしまいます。
マクロVBAでのグラフの扱いについて
最初に説明した通り、マクロでグラフの全てを扱うのは困難ですので、
グラフはあらかじめ作成しておき、
データによって変更される部分のみマクロで変更するようにすれば良いでしょう。
また、使用するプロパティ、メソッドや、その引数を知りたい場合は、
マクロの記録を使って自動記録されるVBAコードを調べて下さい。
以下のページも参考にして下さい。
グラフ（Chart）に関連する記事
グラフはあらかじめ作成しておき、
データによって変更される部分のみマクロで変更するようにすれば良いでしょう。
マクロの記録を使って自動記録されるVBAコードを調べて下さい。
以下のページも参考にして下さい。
グラフ（Chart）に関連する記事
円グラフの色設定
円グラフの色を、元の表から設定します。以下は、ウイザードでグラフを作成した状態です。A列に指定した、塗りつぶし色を、グラフに反映させます。たった、これだけです。手作業よりは、はるかに簡単ですし、応用範囲が広いと思います。
棒グラフ・折れ線グラフのサンプルマクログラフはプロパティ・メソッドも多いので、自分の覚書もかねて掲載しました。この元データから、以下のグラフが作成されます。解説は、プログラム内のコメントを参考にして下さい。系列データのデータ数が増えた時に、データ範囲を変更するマクロも掲載しておきます。
グラフのデータ範囲を自動拡張するマクログラフのデータ範囲を自動で拡張・縮小するマクロVBAになります、グラフのデータ範囲を変更する事は度々ありますが、作業自体は大した事はないのですが、やはり面倒ですし、グラフの数が多いと、結構な手間になります。注意 以下は、棒グラフ・折れ線グラフの場合になります。
人口ピラミッドのグラフをマクロで作成人口ピラミッドのグラフ作成は、設定項目が多く、かなり面倒です。マクロでサクッと作って、細かい部分を手動で設定できれば楽です。この表から、以下のグラフを作成します。手動で設定すると、かなり多くの手順が必要になります。
グラフのデータ範囲を可変にするデータの範囲に合わせて、自動的にグラフのデータ範囲が変更されるようにします。グラフのデータ個数が増えるたびに、「データの選択」（2003は元データ）を変更するのは、いかにも面倒です。できれば、マクロでやりたいところですが、マクロはちょっという人用に解説します。
同じテーマ「マクロVBA入門」の記事
第93回.ピボットテーブル（PivotTable）
第94回.コメント（Comment）
第95回.ハイパーリンク（Hyperlink）
第96回.グラフ（Chart）
第97回.図形オートシェイプ（Shape）
第136回.フォームコントロール
第137回.ActiveXコントロール
第98回.Findメソッド（Find,FindNext,FindPrevious）
第99回.Replaceメソッド（置換）
第132回.その他のExcel機能（グループ化、重複の削除、オートフィル等）
第135回.ジャンプの選択オプション（SpecialCells）
新着記事NEW ・・・新着記事一覧を見る
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
累計を求める数式あれこれ｜エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE｜エクセル入門(2024-01-03)
いくつかの数式の計算中にリソース不足になりました。｜エクセル雑感(2023-12-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.ひらがな⇔カタカナの変換｜エクセル基本操作
5.繰り返し処理（For Next)｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.Findメソッド（Find,FindNext,FindPrevious）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。