Excel VBA：如何复制和粘贴嵌入对象？

Question

如何将Excel文件中的嵌入对象复制到指定的文件夹？我一直在努力直到复制。

Sub temp()
Dim cal As Object
Set cal = Sheet6.OLEObjects(1)
Dim savepath As String
savpath = ThisWorkbook.path & "\"
'Paste code here----
End Sub