グラフを出力

view plainprint?

1. Microsoft::Office::Interop::Excel::Application^ ap1 = gcnew Microsoft::Office::Interop::Excel::ApplicationClass();  
2.   
3. Workbook^ wb = ap1->Workbooks->Add(Type::Missing);  
4.   
5. Worksheet^ ws  = static_cast<Worksheet^>(ap1->ActiveSheet);  
6.   
7. ws->Name = "ワークシート名";  
8.   
9. //行、列  
10. ws->Cells[1,1] = "1";  
11. ws->Cells[1,2] = "10";  
12. ws->Cells[2,1] = "2";  
13. ws->Cells[2,2] = "20";  
14. ws->Cells[3,1] = "3";  
15. ws->Cells[3,2] = "30";  
16.   
17. //ワークシート上のすべての埋め込みグラフのコレクション (Microsoft.Office.Interop.Excel.ChartObjects)を表すオブジェクトを取得します。  
18. ChartObjects^ chObjs = safe_cast<ChartObjects^>(ws->ChartObjects(Type::Missing));  
19.   
20. //新しい埋め込みグラフを作成します。ChartObject オブジェクトを取得します。   
21. //Add(Left,Top,Width,Height)  
22. ChartObject^ chObj = chObjs->Add(130, 50, 300, 300);  
23.   
24. //ブック内のグラフを表します。  
25. Chart^ ch = chObj->Chart;  
26.   
27. //セルまたはセルの範囲を表す Microsoft.Office.Interop.Excel.Range オブジェクトを取得します。   
28. Range^ rn = ws->Range["A2:B3", Type::Missing];  
29.   
30. //指定の Chart コントロールのプロパティを変更します。  
31. ch->ChartWizard(rn->CurrentRegion,    //Source 新しいグラフの参照元データが格納されている範囲です。  
32.   
33.     Constants::xlColumn,            //Gallery グラフの種類です。  
34.   
35.     Type::Missing,                    //Format 組み込みの自動フォーマットのオプション番号です  
36.   
37.     XlRowCol::xlColumns,            //PlotBy 各系列のデータが行と列のどちらにあるかを指定します  
38.   
39.     1,                                //CategoryLabels 項目軸ラベルが含まれている、参照元の範囲内の行または列の番号を指定する整数です  
40.   
41.     Type::Missing,                    //SeriesLabels 系列ラベルが含まれている、参照元の範囲内の行または列の番号を指定する整数です。  
42.   
43.     false,                            //HasLegend 凡例を含める場合は true です。  
44.   
45.     "グラフタイトル",                //Title Chartコントロールのタイトルのテキストです。  
46.   
47.     "X軸タイトル",                    //CategoryTitle 項目軸のタイトルのテキストです。  
48.   
49.     "Y軸タイトル",                    //ValueTitle 数値軸のタイトルのテキストです。  
50.   
51.     Type::Missing);                    //ExtraTitle 系列軸のタイトル  
52.   
53. ap1->Visible = true;  

Microsoft::Office::Interop::Excel::Application^ ap1 = gcnew Microsoft::Office::Interop::Excel::ApplicationClass();

Workbook^ wb = ap1->Workbooks->Add(Type::Missing);

Worksheet^ ws  = static_cast<Worksheet^>(ap1->ActiveSheet);

ws->Name = "ワークシート名";

//行、列
ws->Cells[1,1] = "1";
ws->Cells[1,2] = "10";
ws->Cells[2,1] = "2";
ws->Cells[2,2] = "20";
ws->Cells[3,1] = "3";
ws->Cells[3,2] = "30";

//ワークシート上のすべての埋め込みグラフのコレクション (Microsoft.Office.Interop.Excel.ChartObjects)を表すオブジェクトを取得します。
ChartObjects^ chObjs = safe_cast<ChartObjects^>(ws->ChartObjects(Type::Missing));

//新しい埋め込みグラフを作成します。ChartObject オブジェクトを取得します。 
//Add(Left,Top,Width,Height)
ChartObject^ chObj = chObjs->Add(130, 50, 300, 300);

//ブック内のグラフを表します。
Chart^ ch = chObj->Chart;

//セルまたはセルの範囲を表す Microsoft.Office.Interop.Excel.Range オブジェクトを取得します。 
Range^ rn = ws->Range["A2:B3", Type::Missing];

//指定の Chart コントロールのプロパティを変更します。
ch->ChartWizard(rn->CurrentRegion,    //Source 新しいグラフの参照元データが格納されている範囲です。

    Constants::xlColumn,            //Gallery グラフの種類です。

    Type::Missing,                    //Format 組み込みの自動フォーマットのオプション番号です

    XlRowCol::xlColumns,            //PlotBy 各系列のデータが行と列のどちらにあるかを指定します

    1,                                //CategoryLabels 項目軸ラベルが含まれている、参照元の範囲内の行または列の番号を指定する整数です

    Type::Missing,                    //SeriesLabels 系列ラベルが含まれている、参照元の範囲内の行または列の番号を指定する整数です。

    false,                            //HasLegend 凡例を含める場合は true です。

    "グラフタイトル",                //Title Chartコントロールのタイトルのテキストです。

    "X軸タイトル",                    //CategoryTitle 項目軸のタイトルのテキストです。

    "Y軸タイトル",                    //ValueTitle 数値軸のタイトルのテキストです。

    Type::Missing);                    //ExtraTitle 系列軸のタイトル

ap1->Visible = true;