photo credit: assortedstuff Statistics 1 via photopin (license)
みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。
以前の一連の記事でエクセルVBAを使ってPowerPointを操作する方法についてお伝えしてきました。
PowerPointスライドにエクセルの情報を自動で貼り付けていくことができるわけで、そう考えるとアレを貼り付けられないかなーとうことになります。
アレというのは、そう、グラフです。
一連のシリーズからは横道に逸れるのですが、今回はエクセルVBAでのグラフの取り扱いについてその超基本についてお伝えします。
今回のお題：都道府県別グラフ
まず、今回のお題についてお伝えします。
このようなエクセルシートを用意しました。
はい、ちょっと目がチカチカすることと思いますが許してください。
各行に都道府県名が並んでいまして、列は5年刻みの各県の人口推移（千人単位）を表しています。
右上に一つだけ棒グラフを作成しましたが、これは北海道の人口推移となります。
目標としてやりたいことですが、このグラフの参照範囲を一行ずつ下にらしていくというプログラムを作りたいと思います。
それが実現できたとすると
- PowerPointに新たなスライドを作る
- そのスライドにグラフを貼り付ける
- グラフの参照範囲を一行下に移動する
- 1へ戻る
などといった繰り返し処理を実現できるのではないか？ということです。
できたら便利そうですよね～。
エクセルVBAでグラフを取り扱う～ChartObjectとChart
では、まずグラフと少し仲良くなるために、こちらのプログラムを作って実行してみましょう。
Sub シート上のChartObjectとChart()
Dim chtobj As ChartObject
For Each chtobj In ThisWorkbook.Worksheets("Sheet2").ChartObjects
Debug.Print chtobj.Index, chtobj.Name, chtobj.chart.Name
Next chtobj
End Sub
実行するとイミディエイトウィンドウに
などと表示されたのではないでしょうか？
For Each文でSheet2にあるすべてのChartObjectについて繰り返し処理をして、それぞれについて
- ChartObjectのIndex：1
- ChartObjectのName：Chart 1
- ChartObjectのchartのName：Sheet2 グラフ 1
を表示するという内容です。
結果を見る限りSheet2上にはChartObjectは1つしかなさそうです。というか、一つしかつっくっていませんから当たり前か。
埋め込みグラフとグラフシート
さて、解説を進める前に、この話をしておきましょう。
エクセルで扱うグラフには二種類あるのはご存知ですか？
シート上に配置をするタイプの「埋め込みグラフ」とシートが丸々グラフになっている「グラフシート」の二種類です。
ほら、グラフを新規作成するときに配置先を決めたりしますよね？そこが運命の分かれ道です。
そして厄介なことに、エクセルVBAの視点で言うと、この二つのグラフは取り扱い方が異なります。
グラフシートよりは埋め込みグラフのほうが使用頻度は高いと想定されますので、本シリーズでは、グラフと言えば埋め込みグラフ！ということで進めていきたいと思います。
ChartObjectとChartとの違い
エクセルVBAで埋め込みグラフを取り扱うときには、ChartObjectそしてChartという二つのオブジェクトを使うことになります。
オブジェクトの構成でいうとChartObjectの配下にChartがある、という構成になります。
そして、ChartObjectに対してChartは一つです。
それぞれグラフを表しているオブジェクトではあるのですが、その役割の差は何かというと
- ChartObjectはシートにおけるグラフ外観や大きさなどをつかさどるオブジェクト
- Chartはグラフそのもの
となります。
つまり、シート上の位置やグラフのサイズなどはChartObjectで、グラフのタイトルや種類、データ範囲などはChartで取り扱うということになります。
ですから、シート上のグラフを捕まえる際には、ChartObjectをその名前かインデックス番号で捕まえた上でChartを指定するという形になります。
例えばこのような形ですね。
Dim cht As chart
Set cht = ThisWorkbook.Worksheets("Sheet2").ChartObjects("Chart 1").chart
このChartに対して操作を行うことで、グラフ自体に対してタイトルを変更したり、データ範囲を指定したりが可能になるわけです。
まとめ
以上、エクセルVBAでのグラフの取り扱いについてその超基本についてお伝えしました。
エクセルで言うと
- グラフの取り扱い方が埋め込みグラフ、グラフシートの二種類が存在している
- グラフを取り扱う場合にChartObjectとChartという二種類のオブジェクトが存在している
などによって、VBAによるグラフ操作がなんともややこしいものになっちゃっています。
ここをしっかり押さえて頂くことで、バッチリグラフの操作ができるようになりますので、ぜひ覚えておいて下さいね。
次回、実際にグラフに対して操作を行っていきたいと思います。
どうぞお楽しみに！