使用VBA将图表从Excel复制到PowerPoint并保留源格式

Sub CopyChartToPowerPoint()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim pptSlide As Object
    Dim chartRange As Range
    Dim chartObject As ChartObject
    
    ' 创建PowerPoint应用程序对象
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True
    
    ' 创建一个新的演示文稿
    Set pptPres = pptApp.Presentations.Add
    
    ' 创建一个新的幻灯片
    Set pptSlide = pptPres.Slides.Add(1, 12) ' 12表示幻灯片布局
    
    ' 在Excel中选择要复制的图表
    Set chartRange = ThisWorkbook.Sheets("Sheet1").Range("A1:B10")
    
    ' 将图表复制为图表对象
    Set chartObject = ThisWorkbook.Sheets("Sheet1").ChartObjects.Add(0, 0, 400, 300)
    chartObject.Chart.SetSourceData chartRange
    
    ' 将图表复制到PowerPoint幻灯片中
    chartObject.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    
    ' 将图表粘贴到PowerPoint幻灯片中并保留源格式
    pptSlide.Shapes.PasteSpecial(DataType:=2) ' 2表示图像格式
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
    
    ' 释放对象
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
    Set chartObject = Nothing
    Set chartRange = Nothing
End Sub