该函数加入来自记录集指定列的一组数据。
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 Integer
Dim iRow, iCol As Integer
Dim nMaxRows As Integer
'--- 检查参数是否合法
If (IsNull(oRs) Or IsNull(strValueCol)) Then
Err.Raise Number:=1001 + vbObjectError, Description:="Invalid recordset or column name"
Exit Sub
End If
On Error GoTo hError
'--- 数据系列中最大数据个数
nMaxRows = 25
'--- 设置初始值和位置
oRs.MoveFirst
iRow = 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.MoveNext
Wend
'--- 检查是否确实从记录集读入了数据
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 SetChartWithDataProps
End If
Exit Sub
hError:
App.LogEvent Err.Description, vbLogEventTypeError
Err.Raise Err.Number, Err.Source, Err.Description
End 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()方法提醒当前对象的容器注意这个运行时错误。