VBA将多个excel文件中的多个图表复制到单个word文档

Dim wordApp As Object
Dim wordDoc As Object

Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Add

Dim excelApp As Object
Dim excelWorkbook As Object
Dim excelWorksheet As Object
Dim chartObject As Object

Set excelApp = CreateObject("Excel.Application")
excelApp.Visible = False '设置Excel应用程序不可见

' 循环遍历Excel文件
For Each file In fileArray
    Set excelWorkbook = excelApp.Workbooks.Open(file)
    
    ' 循环遍历Excel文件中的工作表
    For Each excelWorksheet In excelWorkbook.Worksheets
        ' 循环遍历工作表中的图表
        For Each chartObject In excelWorksheet.ChartObjects
            ' 复制图表到Word文档
            chartObject.CopyPicture
            wordApp.Selection.Paste
            wordApp.Selection.InsertParagraphAfter
        Next chartObject
    Next excelWorksheet
    
    excelWorkbook.Close False '关闭Excel文件，不保存更改
Next file

excelApp.Quit '退出Excel应用程序

wordDoc.SaveAs "C:\path\to\output.docx"
wordDoc.Close
wordApp.Quit