用VBA语言从Excel单元格中提取数据到PowerPoint形状

Sub ExtractDataToPowerPoint()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptShape As PowerPoint.Shape
    
    ' 初始化Excel应用程序对象
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open("C:\path\to\your\excel\file.xlsx")
    Set xlSheet = xlBook.Sheets("Sheet1")
    
    ' 初始化PowerPoint应用程序对象
    Set pptApp = New PowerPoint.Application
    Set pptPres = pptApp.Presentations.Open("C:\path\to\your\powerpoint\file.pptx")
    
    ' 假设我们要从Excel的A1单元格提取数据
    Dim data As String
    data = xlSheet.Range("A1").Value
    
    ' 在PowerPoint的当前幻灯片中添加一个文本框，并将数据填充进去
    Set pptSlide = pptPres.Slides(1) ' 假设我们要在第一张幻灯片上操作
    Set pptShape = pptSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50)
    pptShape.TextFrame.TextRange.Text = data
    
    ' 保存并关闭文件
    xlBook.Close SaveChanges:=False
    pptPres.Save
    
    ' 退出应用程序
    xlApp.Quit
    pptApp.Quit
    
    ' 清理对象变量
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
    Set pptShape = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub