VBA圖沒有顯示正確的X標籤

Question

我試圖從名爲「Finances」的工作表中獲取數據。

出於某種原因，我的代碼不會將x tick值標記爲來自C列的設備名稱。這是我的代碼：

Sub MakeFinanceChart() 

Dim rX1 As Range rY1 As Range, rX2 As Range, rY2 As Range, rX3 As Range, rY3 As Range, rX4 As Range, rY4 As Range, rX5 As Range, rY5 As Range, rX6 As Range, rY6 As Range 
Dim rChartPos As Range 
Dim chtO As ChartObject 

Set rX1 = Worksheets("Finance").Range("C5:C80"): Set rY1 = Worksheets("Finance").Range("F5:F80") 
Set rX2 = Worksheets("Finance").Range("C5:C80"): Set rY2 = Worksheets("Finance").Range("J5:J80") 
Set rX3 = Worksheets("Finance").Range("C5:C80"): Set rY3 = Worksheets("Finance").Range("L5:L80") 
Set rX4 = Worksheets("Finance").Range("C5:C80"): Set rY4 = Worksheets("Finance").Range("P5:P80") 
Set rX5 = Worksheets("Finance").Range("C5:C80"): Set rY5 = Worksheets("Finance").Range("T5:T80") 
Set rX6 = Worksheets("Finance").Range("C5:C80"): Set rY6 = Worksheets("Finance").Range("X5:X80") 

Set rChartPos = Worksheets("PLOTS").Range("O2:X28") ' location and dimensions of the chart 
With rChartPos 
Set chtO = .Parent.ChartObjects.Add(.Left, .Top, .Width, .Height) 
chtO.Name = "Finance Plots" 
End With 

'Plot the Whole Finance CHART 

With chtO.Chart 

    .ChartType = xlXYScatterLines 

    ' First series 
    With .SeriesCollection.NewSeries 
     .XValues = rX1 
     .Values = rY1 
     .Name = "A" 
    End With 

    ' Second series 
    With .SeriesCollection.NewSeries 
     .XValues = rX2 
     .Values = rY2 
     .Name = "B" 
    End With 

    ' Third series 
    With .SeriesCollection.NewSeries 
     .XValues = rX3 
     .Values = rY3 
     .Name = "C" 
    End With 

    ' Fourth series 
    With .SeriesCollection.NewSeries 
     .XValues = rX4 
     .Values = rY4 
     .Name = "D" 
    End With 

    ' Fifth series 
    With .SeriesCollection.NewSeries 
     .XValues = rX5 
     .Values = rY5 
     .Name = "E" 
    End With 

    ' Sixth Series 
    With .SeriesCollection.NewSeries 
     .XValues = rX6 
     .Values = rY6 
     .Name = "F" 
    End With 


    .SetElement (msoElementChartTitleAboveChart) 
    .ChartTitle.Text = "Finance Plot" 

End With 

End Sub 

Answer 1

嘗試使用xlLine作爲ChartType。 xlScatter用於數字x軸; xlLine用於x軸上的類別。