How to get value from textfield in powerpoint into excel?

Question

How could this be done?

The powerpoint application is running and the textfield i want to get the value from is on slide3.

I've tried this without any success:

Dim PPApp As PowerPoint.Application

Set PPApp = GetObject(, "PowerPoint.Application")

Range("A20").Value = PPApp.Presentation.Slide3.txtMyTextField.Value

Anyone know the right way to do this?

(Ive also added a reference to powerpoint in the excel file)

Answer 1

This assumes I've got a single TextBox ActiveX Control on my Slide 1.

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