将文本框从PowerPoint复制到Excel

还有一个类似的问题。它有一个答案，但对我不起作用。我使用了他们的一些代码，希望有人能指出我可能做错了什么。

我有一个电源插座，里面有许多幻灯片/文本框和其他物品。我想将文本框中的所有文本复制到excel电子表格中。如果我能得到其中一个的语法，我很确定我可以在幻灯片组中循环

Option Explicit
Dim pptSlide As PowerPoint.Slide
Dim pptPres As PowerPoint.Presentation
Dim PPT As PowerPoint.Application

Sub GetTextboxes()
Set PPT = GetObject(, "PowerPoint.Application")

Set pptPres = PPT.Presentations.Open("D:\Documents\Briefs.pptx")
Set pptSlide = pptPres.Slides(1)
Range("A1").Value = pptSlide.Shapes("Textbox1").TextFrame.TextRange.Text
End Sub

---

当你运行它时会发生什么？哇哦。。。我把这个文本框的名字弄错了。我还必须打开powerpoint才能工作。谢谢你问我这个问题，让我检查一下。我昨天一定累了，忽略了那个细节。