vba 拷贝excel中的图表到ppt中

以下是将 Excel 中的图表复制到 PowerPoint 中的 VBA 代码示例：

Sub CopyChartToPPT()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptShape As PowerPoint.Shape
    Dim chartObj As ChartObject
    Dim chartDataRange As Range
    Dim chartRangeAddress As String
    
    '创建 PowerPoint 实例
    Set pptApp = New PowerPoint.Application
    '打开 PowerPoint 文件或新建一个空白文档
    Set pptPres = pptApp.Presentations.Open("C:\ppt.pptx")
    '新建一个幻灯片
    Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank)
    
    '设置 Excel 工作簿和工作表
    Set chartObj = ActiveSheet.ChartObjects("Chart 1")
    Set chartDataRange = chartObj.Chart.ChartData.Workbook.Worksheets(1).Range("A1:B10")
    chartRangeAddress = chartDataRange.Address
    
    '将图表复制到剪贴板
    chartObj.Copy
    
    '在 PowerPoint 中粘贴图表
    Set pptShape = pptSlide.Shapes.PasteSpecial(DataType:=ppPasteChart, Link:=msoFalse)
    
    '调整图表位置和大小
    pptShape.Left = 100
    pptShape.Top = 100
    pptShape.Width = 400
    pptShape.Height = 300
    
    '保存 PowerPoint 文件并退出
    pptPres.Save
    pptPres.Close
    pptApp.Quit
    
    '释放对象
    Set pptShape = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
    Set chartDataRange = Nothing
    Set chartObj = Nothing
End Sub

其中，需要设置 chartObj 变量为要复制的图表对象，chartDataRange 变量为图表数据的范围，chartRangeAddress 变量为图表数据范围的地址。在将图表粘贴到 PowerPoint 中后，可以根据需要调整图表的位置和大小。最后需要释放对象以释放内存。