0

所以，我创建了一个数组，我试图将数据放入图表中......但我不知道如何让图表从我生成的数组中获取数据，而不是从一个范围。我使用 Excel 表中的 Range 为图表编写了代码.. 但是当我有这个数组时，我看不出如何使所有这些发生..

我有两个子程序。在其中一个我想使用

Call ChartNew2(myArray)

我怎样才能做到这一点？我用这种方式尝试过，我也没有成功......

Sub ChartNew2(result2 As Variant)
Dim i As Integer
ReDim result2(1 To 4, 1 To 1)
Charts.Add
    For i = LBound(result2, 1) To UBound(result2, 1)
        result2(i, 1) = result2
    Next i
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.Location Where:=xlLocationAsObject

    With ActiveChart
                .HasTitle = True
                .Axes(xlValue, xlPrimary).HasTitle = True
        End With


    With ActiveChart.Axes(xlValue)
                .HasMajorGridlines = True
    End With

    ActiveChart.HasLegend = False
    ActiveChart.PlotArea.Select

    Selection.Interior.ColorIndex = xlAutomatic
    ActiveChart.Axes(xlValue).Select

    With ActiveChart.Axes(xlValue)

            .MaximumScale = 1

    End With

End Sub
4

1 回答 1

1

此链接：http ://www.excelforum.com/excel-charting-and-pivots/400227-making-charts-from-arrays-in-vba.html

说要使用这种语法：

With ActiveChart.SeriesCollection(1)
    .XValues = MyXArray
    .Values = MyYArray
    .Name = MyName
End With

如果您在传递数组时遇到问题，我认为如果您的数组是整数数组，这就是语法。

Sub ChartNew2(result2() As Integer)
于 2013-04-26T07:48:03.633 回答