请教关于vbs操作excel的问题

[terrace_feeble]

请教各位高手，我需要写一段代码，用vbs控制excel画图，现在遇到的问题是，给x和y轴加标题的时候出错（下面代码的最后两行），整个代码如下：

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Open("E:\test.xlsx")

objExcel.WorkSheets(1).Activate

set oSheet=objExcel.Workbooks(1).Worksheets(1)

set rng1 = objWorkbook.Activesheet.Range("A1:B9")

set rng2 = objWorkbook.Activesheet.Range("D1:D9")

set rng3 = objWorkbook.Activesheet.Range("F1:F9")

'加入一张图
objWorkbook.Charts.Add

'图表类型为散点图
objWorkbook.ActiveChart.ChartType = 73

'第1个序列
objWorkbook.ActiveChart.SetSourceData rng1

'第2个序列
objWorkbook.ActiveChart.SeriesCollection.Add(rng2)

objWorkbook.ActiveChart.SeriesCollection(2).XValues = "=Sheet1!R1C3:R9C3"

'第3个序列
objWorkbook.ActiveChart.SeriesCollection.Add(rng3)

objWorkbook.ActiveChart.SeriesCollection(3).XValues = "=Sheet1!R1C5:R9C5"

'图表位置
objWorkbook.ActiveChart.Location 2, "Sheet1"

'设置图表legend
objWorkbook.ActiveChart.SeriesCollection(1).Name = "a"

objWorkbook.ActiveChart.SeriesCollection(2).Name = "b"

objWorkbook.ActiveChart.SeriesCollection(3).Name = "c"

'设置图表标题
objWorkbook.ActiveChart.HasTitle=True
objWorkbook.ActiveChart.ChartTitle.Characters.Text="标题"

'设置坐标轴标题
objWorkbook.ActiveChart.Axes(xlCategory).HasTitle=True
objWorkbook.ActiveChart.Axes(xlCategory).AxisTitle.Characters.Text = "x"