excel2003 vba 画折线图的有关问题

excel2003 vba 画折线图的问题
大家好,在excel2003的开发中遇到了一些问题如下:
 在一个sheet页中有一组数据,要根据这组数据在此页调用一个自定义方法画出一个折线图,应该如何做?空白的也成。
 我的代码如下:
VB code

Function createChart()

On Error GoTo err
   Dim nChart As Chart
    Set nChart = Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    
    Exit Function
err:
   MsgBox Error

End Function


这段代码中会报类型不匹配的错误。因为定义中的nChart是一个Chart类型的对像,而Charts.Add在API中定义返回的是一个Chart类型的对象,可实际返回的却是object类型。

请大家不吝赐教。谢谢。

------解决方案--------------------
http://download.csdn.net/detail/veron_04/1483925