Come ottenere valore dal campo di testo in PowerPoint in Excel? - excel, vba, powerpoint, powerpoint-vba

Come si può fare?

L'applicazione PowerPoint è in esecuzione e il campo di testo da cui voglio ottenere il valore è nella diapositiva 3.

Ho provato questo senza alcun successo:

Dim PPApp As PowerPoint.Application

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

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

Qualcuno conosce il modo giusto per farlo? (Ho anche aggiunto un riferimento a PowerPoint nel file Excel)

risposte:

Ciò presuppone che io abbia un singolo controllo ActiveBox TextBox sulla mia diapositiva 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