我正在尝试将工作簿中的某些工作表复制到新书中。
复制相关工作表可以正常工作,但是在新工作簿中,所有图表仍然链接到旧工作簿中的单元格。
有没有人知道将图纸复印到新书的直观方法,但是让图表从新书中获取数据?
以下是我如何复制工作表的示例:
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个图表,这将需要一段时间......