ATL development in Chart in Excel

ATL development in Chart in Excel

利 用Excel提供的类型库, 对Excel文档进行操作, 图表的开发是一项痛苦的工作, 一个图表是由多个series(系列)组成, 每个系列可以赋值不同的公式(formular). 本文对系列上显示的标记文本和背景的颜色改变作一点探讨, 由于是基于COM组件的ActiveX控件开发, 不同于用VBA脚本的开发, 相关内容在网上讨论几乎没有.我们已经创建一个chart在excel文档, 详见下面代码:SeriesCollection serc;serc=chart.SeriesCollection(vtMissing);Series ser=serc.NewSeries();Interior oInt = ser.GetInterior();oInt.SetColor(_variant_t((long)0)); // 注意, 这段代码会crash, 被注释掉//ser.SetMarkerBackgroundColor(RGB(0,0,0));LPDISPATCH lpdisp = wssMysheets.GetItem(_variant_t("Info"));_Worksheet sheet;sheet.AttachDispatch(lpdisp);str1.Format("I%d", i);str2.Format("=Info!I%d", i);lpdisp=sheet.GetRange(COleVariant(str1), COleVariant(str1));VARIANT var;var.vt = VT_DISPATCH; // .vt is the usable member of the tagVARIANTvar.pdispVal = lpdisp;ser.SetValues(var); // 关键代码... // 先适应数据标记ser.ApplyDataLabels(2, // Show valuevtMissing, vtMissing,vtMissing,vtMissing,vtMissing,_variant_t(true),vtMissing,vtMissing,vtMissing); // 得到缺省的数据标记DataLabels dls = ser.DataLabels(vtMissing); // 得到数据标记字体Font font = dls.GetFont(); // 对数据标记文本颜色修改!font.SetColor(_variant_t((long)RGB(255,255,255))); DataLabels有一个方法GetInterior(), 返回Interior对象, 调用其中的SetColor就可以改变标记文本的背景颜色.