如何使用VBA将Excel图表复制粘贴到Word中？

Sub CopyExcelChartToWord()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    Dim xlChart As Object
    
    ' 创建Excel对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\excel_file.xlsx")
    
    ' 选择要复制的图表所在的工作表
    Set xlWorksheet = xlWorkbook.Sheets("Sheet1")
    
    ' 选择要复制的图表
    Set xlChart = xlWorksheet.ChartObjects("Chart1").Chart
    
    ' 复制图表到剪贴板
    xlChart.Copy
    
    ' 关闭Excel文件并退出Excel应用程序
    xlWorkbook.Close
    xlApp.Quit
    
    ' 释放Excel对象
    Set xlChart = Nothing
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    
    ' 打开Word应用程序
    Dim wdApp As Object
    Set wdApp = CreateObject("Word.Application")
    
    ' 打开一个Word文档
    Dim wdDocument As Object
    Set wdDocument = wdApp.Documents.Open("C:\path\to\word_document.docx")
    
    ' 在Word中粘贴图表
    wdApp.Selection.Paste
    
    ' 关闭Word文档并退出Word应用程序
    wdDocument.Close
    wdApp.Quit
    
    ' 释放Word对象
    Set wdDocument = Nothing
    Set wdApp = Nothing
End Sub