グラフを作成する(埋め込みグラフ)
サンプルソース
|
' グラフを作成(1) ActiveSheet.ChartObjects.Add 100, 100, 600, 200 ActiveSheet.ChartObjects(1).Chart.ChartType = xlColumnClustered ActiveSheet.ChartObjects(1).Chart.SetSourceData Source:=Range("A1:B3") ' グラフを作成(2) With ActiveSheet.ChartObjects.Add(30, 50, 300, 200).Chart .ChartType = xlColumnClustered .SetSourceData Source:=Range("A1:B3") End With |
解説
ChartObjects.Add(Left,Top,Width,Height)で埋め込みグラフ作成します。
Left：左からの位置を指定します。単位はポイント
Top：上からの位置を指定します。単位はポイント
Width：幅を指定します。単位はポイント
Height：高さを指定します。単位はポイント
ChartTypeでグラフの種類を設定します。
SetSourceDataでデータ範囲を設定します。
(1)と(2)は同じ結果になりますが、(2)はWithを使って簡略化できるので便利です。
ChartTypeの設定値
| 設定 | 内容 |
|---|---|
| xlColumnClustered | 集合縦棒 |
| xlColumnStacked | 積み上げ縦棒 |
| xlColumnStacked100 | 100%積み上げ縦棒 |
| xlBarClustered | 集合横棒 |
| xlBarStacked | 積み上げ横棒 |
| xlBarStacked100 | 100%積み上げ横棒 |
| xlLine | 折れ線 |
| xlLineMarkers | マーカー付き折れ線 |
| xlLineStacked | 積み上げ折れ線 |
| xlLineStacked100 | 100%積み上げ折れ線 |
| xlPie | 円 |
| xlXYScatter | 散布図 |
| xlBouble | バブル |
| xlArea | 面 |
| xlDoughnut | ドーナツ |
| xlSerface | 等高線 |
| xlStockHLC | 株価チャート |
| xlCylinderColClustered | 円柱 |
| xlConeColColClustered | 円錐 |
| xlPyramidColColClustered | ピラミッド |