用Excel VBA将大表格粘贴到单独的幻灯片中

Sub CopyTableToSlide()
    Dim PowerPointApp As Object
    Dim PowerPointPres As Object
    Dim PowerPointSlide As Object
    Dim ExcelRange As Range
    Dim SlideIndex As Integer
    
    '将表格数据复制到剪贴板
    Set ExcelRange = Selection
    ExcelRange.Copy
    
    '创建PowerPoint应用程序对象
    Set PowerPointApp = CreateObject("PowerPoint.Application")
    
    '打开一个新的PowerPoint演示文稿
    Set PowerPointPres = PowerPointApp.Presentations.Add
    
    '在演示文稿中插入一个新的幻灯片
    Set PowerPointSlide = PowerPointPres.Slides.Add(1, 11) 'ppLayoutTitleOnly
    
    '将剪贴板中的内容粘贴到幻灯片中
    PowerPointSlide.Shapes.PasteSpecial DataType:=2 'ppPasteEnhancedMetafile
    
    '调整幻灯片大小以适应表格内容
    PowerPointSlide.Shapes(1).Width = PowerPointPres.PageSetup.SlideWidth
    PowerPointSlide.Shapes(1).Height = PowerPointPres.PageSetup.SlideHeight
    
    '保存并关闭PowerPoint演示文稿
    PowerPointPres.SaveAs "C:\Path\To\Save\PowerPoint.pptx"
    PowerPointPres.Close
    
    '关闭PowerPoint应用程序
    PowerPointApp.Quit
    
    '释放对象变量
    Set PowerPointSlide = Nothing
    Set PowerPointPres = Nothing
    Set PowerPointApp = Nothing
End Sub