Excel VBA系列收集具有不同xvalue刻度的两个系列

我尝试从excel中的vba在一个图表中绘制两个图形。一个是离散的x范围从-10到10，另一个是近似的“连续”高斯分布比例从-10到10，步长为0.1

 Dim xvalue_norm(201) As Double
 Dim NormFassung(201) As Double
 Dim c As Integer

 For i = 1 To 20
    For j = 1 To 10
        c = c + 1               
        xvalue_norm(c) = i - 11 + (j - 1) / 10 '(-10,-9.9,-9.8,...,10)
        NormFassung(c) = WorksheetFunction.NormDist(i - 11 + (j - 1) / 10, mean_fassung, sigma_fassung, False)
    Next j
 Next i

Dim xvalue_hist(21) As Double
Dim HistFassung(21) As Double

For i = 1 To 21
    xvalue_hist(i) = (i - 11) '(-10,-9,-8,...,10)
    HistFassung(i) = Fassung(i) / summe_fassung
Next i


 ActiveSheet.Shapes.AddChart.Select
 ActiveChart.ChartType = xlLine 
 ActiveChart.Location Where:=xlLocationAsNewSheet     
 ActiveChart.Axes(xlValue).MinimumScale = 0
 ActiveChart.Axes(xlValue).MaximumScale = 0.5

    'Series 1 :
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "NormVert"
    ActiveChart.SeriesCollection(1).XValues = xvalue_norm
    ActiveChart.SeriesCollection(1).Values = NormFassung

    'Series 2 :
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "Historie"
    ActiveChart.SeriesCollection(2).XValues = xvalue_hist
    ActiveChart.SeriesCollection(2).Values = HistFassung

---

使用从-10到10的右xvalue范围正确初始化图表，并且第一个系列绘制良好，但是系列2“Historie”的xvalue似乎使用范围（-10，-9.9，-9.8，…，-8）而不是离散值（-10，-9，-8，…，10）。

很抱歉，没有定义以下符号，因此代码无法编译

i , j, mean_fassung, sigma_fassung, summe_fassung

---

很难继续。

您是否尝试仅使用图表向导添加不同的x轴？我不确定是否可以定义不同的XValue。