Question

怎么可以这样做？

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

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

1 个答案: