好痛苦的问题，谁帮我一下！关于产生EXCEL里的图表的问题！

[onion]

我希望把数据导到EXCEL里，并且配上图表，可是找来找去，找不到满意的VBA和OLE的资料，关于图表操作的。我现在在EXCEL里录制了操作图表的宏，把产生的VB代码看了一下，可是翻译不到BCB代码上去，我用BCB通过OLE产生表格倒没什么问题，网上资料比较多的，可是图表的太少，我把VB代码贴上来，谁帮我看一下吧，我受不了了！！！做报表好烦啊......
Sub chart()
'
' chart Macro
' Onion Hua 记录的宏 2005-3-14
'
' 快捷键: Ctrl+a
'
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R7C2:R7C18"
ActiveChart.SeriesCollection(1).Name = "=Sheet1!R8C2"
ActiveChart.HasTitle = False
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
End Sub