vba 如何实现将excel文件中的图表拷贝到PPT

可以使用VBA编写宏来将Excel文件中的图表拷贝到PPT中。下面是一个简单的示例代码：

Sub CopyChartsToPPT()
    
    '打开PPT应用程序
    Dim pptApp As PowerPoint.Application
    Set pptApp = New PowerPoint.Application
    
    '打开PPT文档
    Dim pptDoc As PowerPoint.Presentation
    Set pptDoc = pptApp.Presentations.Open("C:\Presentation.pptx")
    
    '复制Excel文件中的图表
    Dim wb As Workbook
    Set wb = ThisWorkbook
    Dim sheet As Worksheet
    Set sheet = wb.Sheets("Sheet1")
    Dim chart As ChartObject
    For Each chart In sheet.ChartObjects
        chart.CopyPicture
        Dim slide As PowerPoint.Slide
        Set slide = pptDoc.Slides.Add(pptDoc.Slides.Count + 1, ppLayoutBlank)
        slide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
    Next chart
    
    '保存并关闭PPT文档
    pptDoc.Save
    pptDoc.Close
    
    '关闭PPT应用程序
    pptApp.Quit
    
End Sub

在上面的代码中，首先打开PPT应用程序并打开要复制图表的PPT文档。然后，使用For Each循环遍历Excel文件中的所有图表，将每个图表复制为增强型图元文件，并将其粘贴到新的PPT幻灯片中。最后，保存并关闭PPT文档，并关闭PPT应用程序。

请注意，在运行此宏之前，您需要将Microsoft PowerPoint对象库添加到VBA项目中。可以通过在VBA编辑器中选择“工具”>“引用”来完成此操作，并选中“Microsoft PowerPoint XX.X对象库”的复选框。