0

だから、私は配列を作成し、データをチャートに入れようとしています...しかし、範囲からではなく、生成した配列からデータをチャートに取り込む方法がわかりません。Excel シートから Range を使用してチャートをコーディングしました。しかし、この配列がある場合、そのすべてを実現する方法がわかりません。

サブプロシージャが 2 つあります。そのうちの1つの中で使用したい

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 に答える