Excel VBA:将Excel范围粘贴为Powerpoint中的表格

Sub CopyRangeToPowerPoint()
    Dim PowerPointApp As Object
    Dim PowerPointPres As Object
    Dim PowerPointSlide As Object
    Dim ExcelRange As Range
    Dim PowerPointTable As Object
    
    ' 设置要复制的Excel范围
    Set ExcelRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:C5")
    
    ' 创建一个新的PowerPoint实例
    Set PowerPointApp = CreateObject("PowerPoint.Application")
    
    ' 打开现有的PowerPoint演示文稿
    Set PowerPointPres = PowerPointApp.Presentations.Open("C:\Path\to\Your\Presentation.pptx")
    
    ' 在PowerPoint中创建一个新的幻灯片
    Set PowerPointSlide = PowerPointPres.Slides.Add(1, 11) ' 11表示幻灯片布局为表格
    
    ' 将Excel范围复制为PowerPoint表格
    ExcelRange.Copy
    PowerPointSlide.Shapes.PasteSpecial(DataType:=2) ' 2表示粘贴为表格
    
    ' 获取刚刚粘贴的表格对象
    Set PowerPointTable = PowerPointSlide.Shapes(PowerPointSlide.Shapes.Count).Table
    
    ' 可以对表格进行进一步的格式化和编辑
    
    ' 保存并关闭PowerPoint演示文稿
    PowerPointPres.Save
    PowerPointPres.Close
    
    ' 退出PowerPoint应用程序
    PowerPointApp.Quit
    
    ' 释放对象变量
    Set PowerPointTable = Nothing
    Set PowerPointSlide = Nothing
    Set PowerPointPres = Nothing
    Set PowerPointApp = Nothing
End Sub