请问如何在VC下生成EXCEL图表
我已经用VC生成了表格,进而要生成图表。在网上找了一段代码,执行以后出现几个问题:第一,CChartCntrItem这个函数没定义,第二,总说缺个括号。我用的是2003.代码复制如下:#include "excel8.h"
void CChartView::OnInsertChart()
{
CChartCntrItem* pItem = NULL;
//获取与视图相关的文档
CChartDoc* pDoc = GetDocument();
//创造一个新项(COleClientItem),代表新插入的OLE对象
pItem = new CChartCntrItem(pDoc);
//插入一个Excel图表
CLSID clsid;
::CLSIDFromProgID(L"Excel.Chart",&clsid);
pItem->CreateNewItem(clsid);
//为新增的图标准备显示区域
CRect rectView;
this->GetClientRect(&rectView);
//得到OLE对象(EXCEL图表)的调度接口,以便对之进行自动化控制
LPDISPATCH lpDisp;
lpDisp = pItem->GetIDispatch();
COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR);
_Workbook oBook;
oBook.AttachDispatch(lpDisp);
//获取工作表和图表
Worksheets oSheets = oBook.GetWorksheets();
//获取工作簿的第一张工作表
_Worksheet oSheet = oSheets.GetItem(COleVariant((short)1));
BeginWaitCursor();
Charts oCharts = oBook.GetCharts();
//在自动化过程隐藏图表
oSheet.SetVisible(FALSE);
//获取工作簿的图表
_Chart oChart = oCharts.GetItem(COleVariant((short)1));
//清除工作表上的所有数据
Range oRng = oSheet.GetCells();
oRng.Clear();
//设置第一列标题
oRng = oSheet.GetRange(COleVariant("A1"), vOpt);
oRng.SetValue(COleVariant("月份"));
//设置第二列标题
oRng = oSheet.GetRange(COleVariant("B1"), vOpt);
oRng.SetValue(COleVariant("销售额"));
//设置第一列的数据:月份
CString tmp,rg;
//设置A2到A13的单元内容
for(int i=1;i<=12;i++)
{
tmp.Format("%d月份",i);
rg.Format("A%d:A%d",i+1,i+1);
oRng = oSheet.GetRange(COleVariant(rg), vOpt);
oRng.SetValue(COleVariant(tmp));
}
//设置第二列数据
oRng = oSheet.GetRange(COleVariant("B2:b13"), vOpt);
//设置每个单元格的内容为=RAND()*10000
oRng.SetFormula(COleVariant("=RAND()*10000"));
//设置图表类型为三维圆饼图xl3DPieExploded
oChart.SetChartType((long)70);
//设置数据源区域
oRng = oSheet.GetRange(COleVariant("A1:B13"), vOpt);
//数据序列产生在列xlColumns=2
oChart.SetSourceData(oRng,
COleVariant((short)2));
//加入图标标题
oChart.SetHasTitle(TRUE);
ChartTitle oChartTtl = oChart.GetChartTitle();
oChartTtl.SetText("<-销售收入分月统计图->");
oChartTtl.SetShadow(TRUE);
//不使用图例
oChart.SetHasLegend(FALSE);
//设置图表区的背景颜色
PlotArea oPlot = oChart.GetPlotArea();
Interior oInt = oPlot.GetInterior();
oInt.SetColorIndex(COleVariant((short)19));
//设置数据序列的边框颜色及宽度
Series oSeries =
oChart.SeriesCollection(COleVariant((short)1));
Border oBorder = oSeries.GetBorder();
oBorder.SetColorIndex(COleVariant((short)21));
oBorder.SetWeight(COleVariant((long)-4138));
//在所有的自动化完成之后,显示图表
oSheet.SetVisible(TRUE);
EndWaitCursor();
}