命名xlXY ScatterLines图表时VBA运行时错误"7“

Question

我正在运行一个代码，它要求我命名一个图表，这样我可以稍后再引用它。我用于此的代码是：

Sheets("Summary").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLines
With ActiveChart
    .Name = "energy distribution chart"
End With

我试过不使用with命名图表.如：

ActiveChart.Name = "energy distribution chart"

也不管用。每当代码运行在这一行时，我就会得到一个“运行时错误7-内存不足”。我已经尝试过将这段代码放在新模块中的一个新宏中运行，但是它仍然总是将错误7-3行放入新代码中！我不知道怎么回事。帮助?

编辑:按照我怎么回答，我如何重新选择图表？

我试过：

With Worksheets("Summary").ChartObjects("energy distribution chart").Chart(1)
    .SeriesCollection(sheet_number - 1).XValues = Worksheets(sheet_number).Range(Sheets(sheet_number).Cells(1, 7), Sheets(sheet_number).Cells(i4, 7))
    .SeriesCollection(sheet_number - 1).Values = Worksheets(sheet_number).Range(Sheets(sheet_number).Cells(1, 8), Sheets(sheet_number).Cells(i4, 8))
End With

似乎不起作用..。。。嗯。我还试着去掉了图表旁边的(1)。是啊。不知道。

Answer 1

这是一个嵌入的对象。如果您想更改对象(而不是图表本身)，那么

ActiveChart.Parent.Name = "chart name"

请参阅有关详细信息，请参阅MSDN。