为具有相同x值但y值不同的多个图创建Excel宏

Question

我正在尝试通过宏自动在Excel中创建图。 基本上，我有很多数据（41列，从C列到AQ列），每个数据都包含另一个“名称”。 一列中有两个系列，分别位于两个不同的行部分中（一个从第3行到第8行，一个从第12行到第17行）。

我希望每列一张图，所以总共我将有41张图。 每个图都包含两个系列。 B列中的是X轴上的值，对于每个图形来说都是相同的。

目的是使用y轴值创建一个for next循环，并一次创建所有这些值。

我尝试对第一部分进行编码（仅创建一个图，在x轴上使用B3：B8的值，在y轴上使用C3：C8的值，而第二个系列仅向下几行。

我收到一个错误，但我不明白为什么，我尝试了不同的方法，但从未成功。 错误位于以下行中：ActiveChart.SeriesCollection（1）.Values = Range（Cells（3，3），Cells（8，3））。Value

有谁知道什么可能是错的或如何解决这个问题的？

Sub Macro5()

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "='Blad1'!$A$1"
    ActiveChart.SeriesCollection(1).XValues = "='Blad1'!$B$3:$B$8"
    ActiveChart.SeriesCollection(1).Values = Range(Cells(3, 3), Cells(8, 3)).Value
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "='Blad1'!$A$10"
    ActiveChart.SeriesCollection(2).XValues = "='Blad1'!$B$12:$B$17"
    ActiveChart.SeriesCollection(2).Values = Range(Cells(12, 3), Cells(17, 3)).Value
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    Selection.Delete
    ActiveChart.SeriesCollection(1).Trendlines.Add
    ActiveChart.SeriesCollection(1).Trendlines(1).Select
    Selection.DisplayEquation = True
    Selection.DisplayRSquared = True    
    ActiveChart.SeriesCollection(2).Trendlines.Add
    ActiveChart.SeriesCollection(2).Trendlines(1).Select
    Selection.DisplayEquation = True
    Selection.DisplayRSquared = True

End Sub

Answer 1

在excel 2007中， SeriesCollection.Add()需要一个范围。

Answer 2

范围不合格，Excel可能无法理解您将其转换为使用.Values的数组。

更改

ActiveChart.SeriesCollection(1).Values = Range(Cells(3, 3), Cells(8, 3)).Value

至

ActiveChart.SeriesCollection(1).Values = Worksheets("Blad1").Range(Cells(3, 3), Cells(8, 3))

或者

ActiveChart.SeriesCollection(1).Values = "='Blad1'!$C$3:$C$8"