機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > Excel 2007以降のグラフ

グラフの種類を変える



ChartTypeプロパティに定数を指定する


グラフの種類を、折れ線グラフに変更してみます。Excel 2007では次のようにします。

Sub Sample()
    ActiveSheet.ChartObjects(1).Chart.ChartType = xlLine
End Sub



CartTypeプロパティには、グラフを表す定数を指定します。指定できる定数は次の通りです。

定数 意味
 xl3DArea   -4098   3-D 面 
 xl3DAreaStacked   78   3-D 積み上げ面 
 xl3DAreaStacked100   79   100% 積み上げ面 
 xl3DBarClustered   60   3-D 集合横棒 
 xl3DBarStacked   61   3-D 積み上げ横棒 
 xl3DBarStacked100   62   3-D 100% 積み上げ横棒 
 xl3DColumn   -4100   3-D 縦棒 
 xl3DColumnClustered   54   3-D 集合縦棒 
 xl3DColumnStacked   55   3-D 積み上げ縦棒 
 xl3DColumnStacked100   56   3-D 100% 積み上げ縦棒 
 xl3DLine   -4101   3-D 折れ線 
 xl3DPie   -4102   3-D 円 
 xl3DPieExploded   70   分割 3-D 円 
 xlArea   1   面 
 xlAreaStacked   76   積み上げ面 
 xlAreaStacked100   77   100% 積み上げ面 
 xlBarClustered   57   集合横棒 
 xlBarOfPie   71   補助縦棒グラフ付き円 
 xlBarStacked   58   積み上げ横棒 
 xlBarStacked100   59   100% 積み上げ横棒 
 xlBubble   15   バブル 
 xlBubble3DEffect   87   3-D 効果付きバブル 
 xlColumnClustered   51   集合縦棒 
 xlColumnStacked   52   積み上げ縦棒 
 xlColumnStacked100   53   100% 積み上げ縦棒 
 xlConeBarClustered   102   集合円錐型横棒 
 xlConeBarStacked   103   積み上げ円錐型横棒 
 xlConeBarStacked100   104   100% 積み上げ円錐型横棒 
 xlConeCol   105   3-D 円錐型縦棒 
 xlConeColClustered   99   集合円錐型縦棒 
 xlConeColStacked   100   積み上げ円錐型縦棒 
 xlConeColStacked100   101   100% 積み上げ円錐型縦棒 
 xlCylinderBarClustered   95   集合円柱型横棒 
 xlCylinderBarStacked   96   積み上げ円柱型横棒 
 xlCylinderBarStacked100   97   100% 積み上げ円柱型横棒 
 xlCylinderCol   98   3-D 円柱型縦棒 
 xlCylinderColClustered   92   集合円錐型縦棒 
 xlCylinderColStacked   93   積み上げ円錐型縦棒 
 xlCylinderColStacked100   94   100% 積み上げ円柱型縦棒 
 xlDoughnut   -4120   ドーナツ 
 xlDoughnutExploded   80   分割ドーナツ 
 xlLine   4   折れ線 
 xlLineMarkers   65   マーカー付き折れ線 
 xlLineMarkersStacked   66   マーカー付き積み上げ折れ線 
 xlLineMarkersStacked100   67   マーカー付き 100% 積み上げ折れ線 
 xlLineStacked   63   積み上げ折れ線 
 xlLineStacked100   64   100% 積み上げ折れ線 
 xlPie   5   円 
 xlPieExploded   69   分割円 
 xlPieOfPie   68   補助円グラフ付き円 
 xlPyramidBarClustered   109   集合ピラミッド型横棒 
 xlPyramidBarStacked   110   積み上げピラミッド型横棒 
 xlPyramidBarStacked100   111   100% 積み上げピラミッド型横棒 
 xlPyramidCol   112   3-D ピラミッド型縦棒 
 xlPyramidColClustered   106   集合ピラミッド型縦棒 
 xlPyramidColStacked   107   積み上げピラミッド型縦棒 
 xlPyramidColStacked100   108   100% 積み上げピラミッド型横棒 
 xlRadar   -4151   レーダー 
 xlRadarFilled   82   塗りつぶしレーダー 
 xlRadarMarkers   81   データ マーカー付きレーダー 
 xlStockHLC   88   高値 - 安値 - 終値 
 xlStockOHLC   89   始値 - 高値 - 安値 - 終値 
 xlStockVHLC   90   出来高 - 高値 - 安値 - 終値 
 xlStockVOHLC   91   出来高 - 始値 - 高値 - 安値 - 終値 
 xlSurface   83   3-D 表面 
 xlSurfaceTopView   85   表面 (トップ ビュー) 
 xlSurfaceTopViewWireframe   86   表面 (トップ ビュー - ワイヤーフレーム) 
 xlSurfaceWireframe   84   3-D 表面 (ワイヤーフレーム) 
 xlXYScatter   -4169   散布図 
 xlXYScatterLines   74   折れ線付き散布図 
 xlXYScatterLinesNoMarkers   75   折れ線付き散布図 (データ マーカーなし) 
 xlXYScatterSmooth   72   平滑線付き散布図 
 xlXYScatterSmoothNoMarkers   73   平滑線付き散布図 (データ マーカーなし) 

Excel 2003のコードは動くか


Excel 2003で、グラフ種類を変更する操作をマクロ記録すると、次のようなコードが生成されます。

Sub Macro()
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartType = xlLine
End Sub

ChartTypeプロパティに設定できる定数は、Excel 2007と同じです。

【Excel 2007での実行結果】



問題ないですね。Excel 2003のコードは、そのままExcel 2007でも動作します。



このエントリーをはてなブックマークに追加