如何从PowerPoint中的文本字段获取价值到Excel？

这怎么可能呢？

PowerPoint应用程序正在运行，我想从中获取值的文本位于幻灯片3中。

我试过这个没有成功：

Dim PPApp As PowerPoint.Application Set PPApp = GetObject(, "PowerPoint.Application") Range("A20").Value = PPApp.Presentation.Slide3.txtMyTextField.Value 

任何人都知道正确的方法来做到这一点？ （我也在Excel文件中添加了对PowerPoint的引用）

Answer 1

这假定我的幻灯片1上有一个TextBox ActiveX控件。

 Sub GetTextBoxText() Dim ap As Presentation: Set ap = ActivePresentation Dim tb As TextBox: Set tb = sl.Shapes(1).OLEFormat.Object Debug.Print tb.Text End Sub