VB调用EXCEL绘图，怎么修改X轴坐标

VB调用EXCEL绘图，如何修改X轴坐标
小弟用VB调EXCEL作图
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp.ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("O24"), PlotBy:=xlRows
  objExlApp.ActiveChart.SeriesCollection.NewSeries
  objExlApp.ActiveChart.SeriesCollection(1).XValues = "={1,2}"
  .........
绘制X轴使用以上语句，这样只能在X轴最早两个点标注横坐标，如果画图时注销最后一句话，那么所有点会按顺寻标注横坐标（1，2，3.....）
但是我要绘制的点很多，我希望在整个X轴上只标注第一点和最后一点，或者干错X轴不要坐标，请问，有相关属性修改吗？？

[解决办法]
偶然飘过，不是很会，关注中，UpUp
[解决办法]
在Excel里录制宏，然后参考自动生成的VBA代码就可以了！
[解决办法]
似乎不需要最后一行啊，看看我录制的宏：

VB code

Sub Macro3()    ActiveCell.FormulaR1C1 = "0"    Range("B4").Select    ActiveCell.FormulaR1C1 = "1"    Range("B5").Select    ActiveCell.FormulaR1C1 = "2"    Range("B4:B5").Select    Selection.AutoFill Destination:=Range("B4:B11"), Type:=xlFillDefault    Range("B4:B11").Select    Selection.AutoFill Destination:=Range("B4:B13"), Type:=xlFillDefault    Range("B4:B13").Select    Range("C3").Select    ActiveCell.FormulaR1C1 = "15"    Range("C4").Select    ActiveCell.FormulaR1C1 = "11"    Range("C5").Select    ActiveCell.FormulaR1C1 = "15"    Range("C6").Select    ActiveCell.FormulaR1C1 = "15"    Range("C7").Select    ActiveCell.FormulaR1C1 = "98"    Range("C9").Select    ActiveCell.FormulaR1C1 = "8"    Range("C8").Select    ActiveCell.FormulaR1C1 = "2"    Range("C10").Select    ActiveCell.FormulaR1C1 = "6"    Range("C11").Select    ActiveCell.FormulaR1C1 = "98"    Range("C12").Select    ActiveCell.FormulaR1C1 = "47"    Range("C13").Select    ActiveCell.FormulaR1C1 = "12"    Range("D3").Select    ActiveCell.FormulaR1C1 = "44"    Range("D4").Select    ActiveCell.FormulaR1C1 = "12"    Range("D5").Select    ActiveCell.FormulaR1C1 = "32"    Range("D6").Select    ActiveCell.FormulaR1C1 = "4"    Range("D8").Select    ActiveCell.FormulaR1C1 = "68"    Range("D7").Select    ActiveCell.FormulaR1C1 = "23"    Range("D9").Select    ActiveCell.FormulaR1C1 = "78"    Range("D10").Select    ActiveCell.FormulaR1C1 = "57"    Range("D11").Select    ActiveCell.FormulaR1C1 = "55"    Range("D12").Select    ActiveCell.FormulaR1C1 = "2"    Range("D13").Select    ActiveCell.FormulaR1C1 = "0"    Range("E12").Select    Charts.Add    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B3:D13"), PlotBy _        :=xlColumns    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"    ActiveChart.HasLegend = True    ActiveChart.Legend.Select    Selection.Position = xlRightEnd Sub