如何使用vba将excel工作簿附加到power point幻灯片中

Sub AttachExcelWorkbookToPowerPoint()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim excelApp As Excel.Application
    Dim excelWorkbook As Excel.Workbook
    
    ' 创建PowerPoint应用程序对象
    Set pptApp = New PowerPoint.Application
    pptApp.Visible = True ' 可见性设置为True，方便调试
    
    ' 打开或创建一个PowerPoint演示文稿
    Set pptPres = pptApp.Presentations.Add
    
    ' 创建一个新的幻灯片
    Set pptSlide = pptPres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutBlank)
    
    ' 创建Excel应用程序对象
    Set excelApp = New Excel.Application
    
    ' 打开Excel工作簿
    Set excelWorkbook = excelApp.Workbooks.Open("C:\Path\To\Your\ExcelWorkbook.xlsx")
    
    ' 将Excel工作簿附加到PowerPoint幻灯片中
    excelWorkbook.Sheets(1).Copy
    pptSlide.Shapes.PasteSpecial(DataType:=ppPasteOLEObject).Select
    
    ' 清理对象
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
    excelWorkbook.Close SaveChanges:=False
    excelApp.Quit
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
End Sub