グラフを挿入して、種類を変更したりスタイルを変えたり画像にしたり【ExcelVBA】

●ChartObjects.Addメソッド →新しい埋め込みグラフを作成 引数 Left 左端の位置 Top 上端の位置 Width 横幅 Height 高さ

●Chart.PlotByプロパティ データ系列として使用する方向を行・列設定

●Chart.HasTitleプロパティ →グラフのタイトルの表示設定 TRUE 表示 FALSE 非表示

●Chart.ChartTitle.Textプロパティ →タイトルのテキストを設定

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 データ マーカー付きレーダー

xlSurface 83 3-D 表面

xlSurfaceTopView 85 表面 (トップ ビュー)

xlSurfaceTopViewWireframe 86 表面 (トップ ビュー - ワイヤーフレーム)

xlSurfaceWireframe 84 3-D 表面 (ワイヤーフレーム)

xlXYScatter -4169 散布図

xlXYScatterLines 74 折れ線付き散布図

xlXYScatterLinesNoMarkers 75 折れ線付き散布図 (データ マーカーなし)

xlXYScatterSmooth 72 平滑線付き散布図

xlXYScatterSmoothNoMarkers 73 平滑線付き散布図 (データ マーカーなし)

ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ

実際に使用したサンプルコード

Option Explicit
Public Sub sample()

'セル範囲をRange型で宣言
Dim セル範囲 As Range
Set セル範囲 = Range("F5", "H11")

'新しい埋め込みグラフを作成
ActiveSheet.ChartObjects.Add(セル範囲.Left, セル範囲.Top, セル範囲.Width, セル範囲.Height).Name = "sample"

With ActiveSheet.ChartObjects("sample")

'指定したグラフにソースデータを設定
.Chart.SetSourceData Range("B5", "D11")

'集合縦棒グラフに設定
.Chart.ChartType = 51

'データの行・列を指定
.Chart.PlotBy = xlColumns

'タイトルを表示
.Chart.HasTitle = True

'タイトルを設定
.Chart.ChartTitle.Text = "ここがタイトル"

End With

End Sub
Public Sub test()

ActiveSheet.ChartObjects("sample").Chart.Export Filename:=ThisWorkbook.Path & "\グラフ.jpg"

End Sub