グラフの種類の設定

広告

グラフの種類を取得したり設定したりする方法を確認します。

グラフの種類を設定するには、Chartオブジェクトに対して「ChartType」プロパティに値を設定します。

Dim chart1 As Chart

Set chart1 = Application.Charts("Graph1")
chart1.ChartType = xlLine

グラフの種類を「ChartType」プロパティに設定します。設定可能なグラフの種類は次の通りです。

定数グラフの種類
xlLine折れ線
xlLineMarkersStackedデータ マーカー付き積み上げ折れ線
xlLineStacked積み上げ折れ線
xlPie
xlPieOfPie補助円グラフ付き円
xlPyramidBarStacked積み上げピラミッド横棒
xlPyramidCol3-D ピラミッド縦棒
xlPyramidColClustered集合ピラミッド縦棒
xlPyramidColStacked積み上げピラミッド縦棒
xlPyramidColStacked100100% 積み上げピラミッド縦棒
xlRadarレーダー
xlRadarFilled塗りつぶしレーダー
xlRadarMarkersデータ マーカー付きレーダー
xlStockHLC高値 - 安値 - 終値
xlStockOHLC始値 - 高値 - 安値 - 終値
xlStockVHLC出来高 - 高値 - 安値 - 終値
xlStockVOHLC出来高 - 始値 - 高値 - 安値 - 終値
xlSurface3-D 等高線
xlSurfaceTopView等高線 (トップ ビュー)
xlSurfaceTopViewWireframe等高線 (トップ ビュー - ワイヤフレーム)
xlSurfaceWireframe3-D 等高線 (ワイヤフレーム)
xlXYScatter散布図
xlXYScatterLines折れ線付き散布図
xlXYScatterLinesNoMarkers折れ付き散布図 (データ マーカーなし)
xlXYScatterSmooth平滑線付き散布図
xlXYScatterSmoothNoMarkers平滑線付き散布図 (データ マーカーなし)
xl3DArea3-D 面
xl3DAreaStacked3-D 積み上げ面
xl3DAreaStacked1003-D 100% 積み上げ面
xl3DBarClustered3-D 集合横棒
xl3DBarStacked3-D 積み上げ横棒
xl3DBarStacked1003-D 100% 積み上げ横棒
xl3DColumn3-D 縦棒
xl3DColumnClustered3-D 集合縦棒
xl3DColumnStacked3-D 積み上げ縦棒
xl3DColumnStacked1003-D 100% 積み上げ縦棒
xl3DLine3-D 折れ線
xl3DPie3-D 円
xl3DPieExploded分割 3-D 円
xlArea
xlAreaStacked積み上げ面
xlAreaStacked100100% 積み上げ面
xlBarClustered集合横棒
xlBarOfPie補助縦棒グラフ付き円
xlBarStacked積み上げ横棒
xlBarStacked100100% 積み上げ横棒
xlBubbleバブル
xlBubble3DEffect3-D 効果付きバブル
xlColumnClustered集合縦棒
xlColumnStacked積み上げ縦棒
xlColumnStacked100100% 積み上げ縦棒
xlConeBarClustered集合円錐横棒
xlConeBarStacked積み上げ円錐横棒
xlConeBarStacked100100% 積み上げ円錐横棒
xlConeCol3-D 円錐縦棒
xlConeColClustered集合円錐縦棒
xlConeColStacked積み上げ円錐縦棒
xlConeColStacked100100% 積み上げ円錐縦棒
xlCylinderBarClustered集合円柱横棒
xlCylinderBarStacked積み上げ円柱横棒
xlCylinderBarStacked100100% 積み上げ円柱横棒
xlCylinderCol3-D 円柱縦棒
xlCylinderColClustered集合円錐縦棒
xlCylinderColStacked積み上げ円錐縦棒
xlCylinderColStacked100100% 積み上げ円柱縦棒
xlDoughnutドーナツ
xlDoughnutExploded分割ドーナツ
xlLineMarkersデータ マーカー付き折れ線
xlLineMarkersStacked100データ マーカー付き 100% 積み上げ折れ線
xlLineStacked100100% 積み上げ折れ線
xlPieExploded分割円
xlPyramidBarClustered集合ピラミッド横棒
xlPyramidBarStacked100100% 積み上げピラミッド横棒

任意のグラフを設定できますが、グラフによっては元になるデータに制限がある場合もありますので注意して下さい。

サンプルプログラム

では簡単なサンプルで試してみましょう。

testchartedit4.bas

Sub テスト()

    Dim chart1 As Chart

    Set chart1 = Charts.Add
    
    chart1.SetSourceData Worksheets("Sheet1").Range("B2:E6")
    chart1.ChartType = xlLineStacked
    
End Sub

上記マクロを実行すると次のようになります。

グラフの種類の指定

Excel VBA入門の他の記事を見てみる

( Written by Tatsuo Ikura )

関連記事 (一部広告含む)