我有一個Excel檔, 有2個Sheet, 若在Sheet1內有1個Chart, 要怎麼寫程式把這個Chart複製到Sheet2呢?
網路上有很多類似以下的code
ActiveSheet.ChartObjects("圖表1").Activate
ActiveChart.ChartArea.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
這些Code都是先把圖表複製到剪貼簿內(Ctrl C), 然後再到目的Sheet執行貼上(Ctrl V)的動作, 但是這樣會造成一個問題，
如果同時有多個Excel檔做Chart複製時，會有Chart亂掉的情形，

例如：
Ａ程式執行到Sheets("Sheet1").Select時，
Ｂ程式剛好執行到ActiveChart.ChartArea.Copy這一行，
這樣剪貼簿內的chart就變成Ｂ程式的圖表了，
若Ａ程式繼續執行ActiveSheet.Paste，就會發生所貼上的Chart是Ｂ程式所Copy的chart,

所以，不知道有沒有辦法是不透過剪貼簿去複製Excel Chart的呢?

找半天，結果才ＰＯ出來就找到了
我用VB, Delphi的語法就給有需要的人自己去改了
Dim test As Excel.ChartObject
Set test = xlSheet.ChartObjects("圖表 1").Duplicate <----複製
test.Chart.Location xlLocationAsObject, "Sheet1" <----移到Sheet1