将图表复制到没有链接的新工作簿

Question

我正在尝试将工作簿中的某些工作表复制到新书中。

复制相关工作表可以正常工作，但是在新工作簿中，所有图表仍然链接到旧工作簿中的单元格。

有没有人知道将图纸复印到新书的直观方法，但是让图表从新书中获取数据？

以下是我如何复制工作表的示例：

Sub copySheets()

' Copy over other sheets

oldBook.Sheets("Chart Workings").Copy Before:=newBook.Sheets(1)
With newBook.Sheets(1).UsedRange
    .Value = .Value 'converts formulas to values
End With

End sub

[编辑]理想情况下，一种方法不涉及进入每个图表并将系列指向新工作簿，因为我有超过65个图表，这将需要一段时间......