埋め込みグラフを作る その1(基本グラフ作成)

ついにこの禁断のお題に足を踏み入れてしまいました。その？まで続くのか楽しみ（すぐ終わってしまったりして…）．まずは，基本的な埋め込みグラフの作り方から．


【事例】
以下のデータを使用してグラフを作ることを考えます．シート名はsheet1と仮定します．






Sub graph_make()


With ActiveSheet.ChartObjects.Add(50, 100, 300, 200).Chart
.SetSourceData Sheets("sheet1").Range("A3:D6") , PlotBy:=xlRows
End With


End Sub


【解説】
埋め込みグラフ作成には，ChartObjectsコレクションのAddメソッドを使うとできます．Addの後の4つの数字は(Left, Top, Width, Height)を表しています．これだけだととってもシンプルですねぇ．グラフってとっても奥が深いように感じられて…これからどんどん複雑になっていきます．

ちなみに，上記のマクロがうまく動くと以下のようなグラフが書けると思います．

ちなみに，.SetSourceDateのところの(Source, Plotby)のところのSourceはグラフの元データのセル範囲，Plotbyはデータ系列を行列のどちらにとるかを示します．列方向はxlolumns, 行方向はxlRowsとします．