标题:请问如何在VC下生成EXCEL图表
只看楼主
麻瓜
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-9-13
 问题点数:0 回复次数:0 
请问如何在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();
}
搜索更多相关主题的帖子: EXCEL 图表 
2008-09-28 21:31



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-235699-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016024 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved