我希望使用VBA将数据写入到powerpoint上的现有文本框中，但这些代码都不起作用

Sub WriteDataToPowerPoint()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptShape As PowerPoint.Shape
    
    ' 创建PowerPoint应用程序对象
    Set pptApp = New PowerPoint.Application
    
    ' 打开现有的PowerPoint演示文稿
    Set pptPres = pptApp.Presentations.Open("C:\Path\To\Your\Presentation.pptx")
    
    ' 指定要操作的幻灯片
    Set pptSlide = pptPres.Slides(1) ' 假设要操作第一张幻灯片
    
    ' 指定要写入数据的文本框
    Set pptShape = pptSlide.Shapes("TextBox1") ' 假设要写入名为"TextBox1"的文本框
    
    ' 写入数据到文本框
    pptShape.TextFrame.TextRange.Text = "要写入的数据"
    
    ' 保存并关闭演示文稿
    pptPres.Save
    pptPres.Close
    
    ' 退出PowerPoint应用程序
    pptApp.Quit
    
    ' 释放对象变量
    Set pptShape = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub