如何使用 VB 将数组应用于 excel 中的图形数据系列

Question

我正在尝试在单个页面上创建许多小图并使用数组中的数据。 我创建了 2 个向量作为 Series1 和 Series2 （定义为Dim Series1(366) as double ）并希望用作我的数据输入。 目前，我将数据写入工作表并使用“范围”（例如“A3:A369”）创建系列。 下面的代码有效。 我尝试了几种替代方案但均未成功-示例

' With.SeriesCollection(1)'

'.Values = Series1

' End With

' ActiveChart.SeriesCollection(1).Add Source:=Series1

' ActiveChart.SeriesCollection.Add Source:=series2

 If iChartObject = 5 Then
    With ActiveSheet.ChartObjects.Add(Left:=1000, Width:=200, Top:=100, Height:=200)
        .Chart.ChartType = my_charttype
        .Chart.HasTitle = True
        .Chart.ChartTitle.Text = ChartTitle
    End With
End If
ActiveSheet.ChartObjects(iChartObject).Activate
ActiveChart.ChartArea.Select
str1 = Trim(str(lg_start))
str2 = Trim(str(lg_end))
str3 = "B" + str1 + ":B" + str2
str4 = ActiveSheet.Name
str5 = ActiveChart.Name
ActiveChart.SeriesCollection.Add Source:=ActiveSheet.Range(str3)
str3 = "C" + str1 + ":C" + str2
ActiveChart.SeriesCollection.Add Source:=ActiveSheet.Range(str3)

任何帮助表示赞赏

Answer 1

我使用下面的代码（几乎）解决了这个问题。 但是，我现在只剩下零，导致以下情况。 我只想看看 plot 的区域 - 即没有零。 系列 1 &2 被定义为“双”

For Each ch In ActiveSheet.ChartObjects
            ch.Chart.SeriesCollection.NewSeries
            ch.Chart.SeriesCollection(1).Values = Series1
            ch.Chart.SeriesCollection.NewSeries
            ch.Chart.SeriesCollection(2).Values = Series2
    Next