该函数加入来自记录集指定列的一组数据。
Public Sub AddDataSeries(ByVal oRs As ADODB.Recordset, _ByVal strValueCol As String, ByVal strSeriesName As String, _ByVal flgShowDataLabels As Boolean, _ByVal flgShaded As Boolean)Dim iCount As IntegerDim iRow, iCol As IntegerDim nMaxRows As Integer '--- 检查参数是否合法If (IsNull(oRs) Or IsNull(strValueCol)) Then Err.Raise Number:=1001 + vbObjectError, Description:="Invalid recordset or column name" Exit SubEnd IfOn Error GoTo hError'--- 数据系列中最大数据个数nMaxRows = 25'--- 设置初始值和位置oRs.MoveFirstiRow = 0: iCol = oExcelChart.SeriesCollection.Count + 2'--- 循环，将记录集数据写入工作表列While (Not oRs.EOF And iRow <nMaxRows) iRow = iRow + 1 '--- 设置一个单元的值 oExcelSheet.Cells(iRow, iCol) = CDec(oRs(strValueCol).Value) '--- 下一行 oRs.MoveNextWend '--- 检查是否确实从记录集读入了数据If (iRow> 0) Then '--- 将新的数据系列加入SeriesCollection With oExcelChart.SeriesCollection.NewSeries'--- 将数据工作表中的数据设置为图表数据系列.Values = oExcelSheet.Range(oExcelSheet.Cells(1, iCol), _ oExcelSheet.Cells(iRow, iCol))'--- 设置数据系列名字If (Not IsNull(strSeriesName)) Then .Name = strSeriesName'--- 设置边框风格.Border.Weight = xlThin.Border.LineStyle = xlAutomatic'--- 如已经指定则设置阴影效果If (flgShaded = True) Then .Fill.OneColorGradient Style:=1, _Variant:=1, Degree:=0.231372549019608'--- 设置数据标签是否可见If (flgShowDataLabels) Then .ApplyDataLabels Type:=2, _AutoText:=True, LegendKey:=False End With '--- 设置那些只有在加入了数据之后才可以设置的属性 If (oExcelChart.SeriesCollection.Count = 1) Then SetChartWithDataPropsEnd If Exit SubhError:App.LogEvent Err.Description, vbLogEventTypeErrorErr.Raise Err.Number, Err.Source, Err.DescriptionEnd Sub
【图3】
上图所显示的是数据工作表及其对应的图表工作表。
AddDataSeries()函数担负着大部分与Excel接口的工作。传递给AddDataSeries()函数的数据是记录集形式，而Excel应用中图表对象接受的是Range形式的数据。Range对象代表要求绘制图表的一个单元格或一组单元格。这里函数用到了Excel对象模型中的另外一个对象，即Chart对象中包含的SeriesCollection集合对象。所有以记录集形式提供的数据最终被存储到Series对象，Series对象是SeriesCollection集合对象的元素。程序中我们特别将数据系列中数据的最大个数设置成了25，当然，这最终决定于开发者。
数据分两个步骤传递到Chart对象。第一步是循环遍历记录集，收集Excel工作表内单个列的各行数据，例如B1到B5。第一列即A列留给X-轴上的标签，第一个数据系列写入第二列，第二个数据系列写入第三列，依此类推。
数据从记录集转到工作表之后就可以把它们视为Range对象里面的数据，接下来是在Chart对象的SeriesCollection集合里添加数据系列，利用ExcelSheet对象的Range()方法传送数据。
接下来的几行代码完成一些装饰图表的任务，比如设置数据系列的名字（作为图表中的图例显示），如果已经指定的话则还要设置填充效果。这里用到了另外一个功能强大的对象Fill，Fill对象用来控制图表的外观以及赋予应用它的对象某种特殊效果。
函数的最后几行代码里调用了SetChartWithDataProps()方法。如前所述，图表的某些属性只有在已经将数据加入到图表之后才能设置，因此程序首先检查当前的数据是否属于第一个数据系列然后调用SetChartWithDataProps方法。到这里为止，图表绘制已经完成，接下来就可以将它导出为GIF文件。
最后三行代码用来控制错误。程序利用Visual Basic的App对象记录错误，然后使用Err对象的Raise()方法提醒当前对象的容器注意这个运行时错误。
