使用VBA将包含可编辑单元格的表格从Excel粘贴到Powerpoint

Sub CopyTableToPowerPoint()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptShape As PowerPoint.Shape
    Dim excelTable As Range
    
    ' 创建一个新的PowerPoint应用程序实例
    Set pptApp = New PowerPoint.Application
    pptApp.Visible = True
    
    ' 打开一个新的演示文稿
    Set pptPres = pptApp.Presentations.Add
    
    ' 在演示文稿中插入一个新的幻灯片
    Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank)
    
    ' 将Excel中的表格复制到剪贴板
    Set excelTable = ThisWorkbook.Worksheets("Sheet1").Range("A1:D10")
    excelTable.Copy
    
    ' 在幻灯片中粘贴表格
    Set pptShape = pptSlide.Shapes.PasteSpecial(DataType:=ppPasteHTML)
    
    ' 调整表格的位置和大小
    pptShape.Left = 100
    pptShape.Top = 100
    pptShape.Width = 400
    pptShape.Height = 200
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 保存并关闭PowerPoint应用程序
    pptPres.SaveAs "C:\Path\to\output.pptx"
    pptPres.Close
    pptApp.Quit
    
    ' 释放对象变量
    Set pptShape = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub