Comment obtenir une valeur de textfield dans PowerPoint dans Excel?

Question

Comment cela a-t-il pu être fait?

L'application PowerPoint est en cours d'exécution et le champ de texte je veux obtenir la valeur de la diapositive est 3.

J'ai essayé cela sans aucun succès:

Dim PPApp As PowerPoint.Application 

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

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

Quelqu'un sait la bonne façon de fais ça? (Je l'ai également ajouté une référence à PowerPoint dans le fichier Excel)

Answer 1

Cela suppose que j'ai un seul TextBox ActiveX Control sur 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