VBA把excel中的图表复制到PPT中

可以使用以下VBA代码将Excel中的图表复制到PowerPoint中：

首先在Excel中打开Visual Basic编辑器，然后在“工具”菜单中选择“引用”，勾选“Microsoft PowerPoint XX.X 对象库”（XX.X为您的PowerPoint版本号），以便可以在代码中调用PowerPoint对象。

然后在Excel中编写以下VBA代码：

Sub CopyChartToPPT()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim myChart As ChartObject
    
    '打开PowerPoint应用程序
    Set pptApp = New PowerPoint.Application
    pptApp.Visible = True
    
    '创建新演示文稿
    Set pptPres = pptApp.Presentations.Add
    
    '在演示文稿中添加新幻灯片
    Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank)
    
    '复制Excel中的图表
    Set myChart = ActiveSheet.ChartObjects("Chart 1")
    myChart.Chart.ChartArea.Copy
    
    '将图表粘贴到PowerPoint中
    pptSlide.Shapes.Paste
    
    '调整图表位置和大小
    With pptSlide.Shapes(1)
        .Left = 100
        .Top = 100
        .Width = 400
        .Height = 300
    End With
    
    '清除剪贴板内容
    Application.CutCopyMode = False
    
    '关闭PowerPoint应用程序
    pptPres.Close
    pptApp.Quit
    
    '释放对象变量
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
    Set myChart = Nothing
    
End Sub

在代码中，我们首先创建了一个PowerPoint应用程序对象，然后创建一个新的演示文稿和幻灯片，并在Excel中选择要复制的图表。随后，我们将图表复制到剪贴板并将其粘贴到PowerPoint幻灯片中。最后，我们调整图表的位置和大小，并清除剪贴板内容。