vba - Excel VBA - 设置 SeriesCollection = 2D 数组

Question

我有一个二维数组如下

Dim plot() As Double
ReDim plot(0 to 1, 0 to arryLength) ' arryLength is some integer value

维度“0”指的是绘图的 x 轴值，维度“1”指的是 y 轴值。我需要使用这个数组来设置预先存在的图上的值。我知道使用一维数组你可以做类似的事情

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).XValues = xaxis()
ActiveChart.SeriesCollection(1).Values = yaxis()

如何设置它设置.XValues = plot(@ Dimension 0)和.Values = plot(@ Dimension 1)？

Answer 1

也许：

With ActiveSheet.ChartObjects("chart 1").Chart
    .SeriesCollection(1).XValues = Application.Transpose(Application.Index(plot, 0, 1))
    .SeriesCollection(1).Values = Application.Transpose(Application.Index(plot, 0, 2))
End With