將圖表從Excel複製到Word

Question

我正在嘗試將圖表複製到Word中。我擡頭看了一眼method，說做這樣的事情：

Dim wordApp As Object 
Dim wordDoc As Object 
Set wordApp = CreateObject("Word.Application") 
wordApp.Visible = True 

Set wordDoc = wordApp.Documents.Add 

With ThisWorkbook 
    .Sheets("Sheet1").ChartObjects(1).Activate 
    .ActiveChart.ChartArea.Copy 
End With 
With Selection 
    .PasteSpecial Link:=False, DataType:=wdInLine, _ 
    Placement:=wdInLine 
End With 
wordApp.Documents.Close 
wordApp.Application.Quit 

我試圖改變With selection部分只是wordApp.Documents.Selection.Pastespecial這會導致一些奇怪的事情發生，並最終以某種方式粘貼在第一頁的屏幕截圖工作簿和Excel崩潰。任何建議感激。

With Selection 
    .PasteSpecial Link:=False, DataType:=wdInLine, _ 
    Placement:=wdInLine 
End With 

可以解決你的問題，這個改變它：

With wordDoc.Application.Selection 
    .PasteSpecial Link:=False, DataType:=wdInLine, _ 
    Placement:=wdInLine 
End With 

說明：從Excel宏運行代碼

Answer 1

你在你的代碼，這部分有問題，Selection對象將解析爲Excel工作表中的當前選擇內容，您需要指定選擇範圍以將您的命令應用於Word文檔而不是當前的Excel工作簿。