Question

我尝试在excel中的vba中绘制一个图表中的两个图形。一个具有从-10到10的离散x范围，另一个是近似的＆＃34;连续的＆＃34;高斯分布从-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

图表正确初始化，右边的xvalue范围从-10到10，第一个系列绘制得很好，但是系列2和＃34;历史＆＃34;的x值。似乎使用范围（-10，-9.9，-9.8，...， - 8）而不是离散值（-10，-9，-8，...，10）。

Answer 1

很抱歉，但未定义以下符号，因此代码无法编译。

i , j, mean_fassung, sigma_fassung, summe_fassung

难以进步。

Excel VBA SeriesCollection两个系列具有不同的xvalue标度

1 个答案: