Как получить значение из текстового поля в PowerPoint в Excel?

Question

Как это можно сделать?

Приложение PowerPoint запущено, и текстовое поле, из которого я хочу получить значение, находится на слайде 3.

Я пробовал это без успеха:

Dim PPApp As PowerPoint.Application

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

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

Кто-нибудь знает правильный способ сделать это? (Я также добавил ссылку на PowerPoint в файле Excel)

Answer 1

Это предполагает, что у меня есть один элемент управления TextBox ActiveX на моем слайде 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