Excel VBA SeriesCollection两个具有不同xvalue尺度的系列
我试图从Excel中的一个图表中绘制两个图表。 一个具有从-10到10的离散的x范围，另一个是近似的“连续”高斯分布，从步幅范围0.1到10从-10到10。
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 该图初始化正确的右边的xvalue范围从-10到10，第一个系列绘制得很好，但系列2“Historie”的xvalues似乎使用的范围（-10，-9.9，-9.8，.. -8）而不是离散值（-10，-9，-8，…，10）。
对不起，但下面的符号没有定义，所以代码不能编译。
i , j, mean_fassung, sigma_fassung, summe_fassung
难以进步。