excel2007 打开模板文件时不能显示chart对象的解决办法
来源:互联网 发布:怎么提高淘宝权重 编辑:程序博客网 时间:2024/05/22 15:12
VBA宏定义如下:
ActiveSheet.ChartObjects("图表 2").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.PlotArea.Select
#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();
- excel2007 打开模板文件时不能显示chart对象的解决办法
- 打开chm文件不能显示内容的解决办法
- 不能显示隐藏文件的解决办法
- chm文件不能显示内容的解决办法
- .shtml文件不能显示的解决办法
- chm文件不能显示内容的解决办法
- 织梦模板安装后不能显示css的解决办法
- IE6不能直接打开下载的文件的解决办法
- Excel2007 运行时错误'91' 对象变量或 With 块变量没有设置 的一种解决办法
- Window2K中不能打开*.chm文件的解决办法
- windows中不能双击打开jar文件的解决办法
- 不能打开要写入的文件故障解决办法
- 关于SAS不能读取Excel2007文件的原因及解决方法
- 打开chm文件,不显示文件内容的解决办法
- 不能打开参数文件initORCL.ora解决办法
- Windows 7 打开chm文件不显示内容的解决办法
- SecureCRT打开UTF-8文件显示乱码的解决办法
- Win8.1打开CHM文件无法正常显示的解决办法
- Cygwin下Hadoop的安装与配置详解
- 2011年1月-4月项目日记_2.16
- 银行业务调度系统
- Ubuntu 编程环境配置
- OA系统简介和相关资料
- excel2007 打开模板文件时不能显示chart对象的解决办法
- ASP.NET运行原理
- 新博客
- 用基本的JS进行Ajax请求
- CocoaChina整理的开源iPhone程序不完全列表
- 破解脚本禁用(IE6)
- dxtrans.h 文件不能找到
- 内核启动调试
- 50款经典 iPhone 开源应用(附代码下载)