הפעלת פונקציה בvba בPowerPoint בהפעלת המצגת

[אביי]

יש לי מצגת בPowerPoint שאני מעוניין לאפשר את עריכת הנתונים (תיבות טקסט וכדו') גם באמצע ההצגה של המצגת.

אני יודע שזה אפשרי באמצעות תצוגת מגיש, שבה עריכה נראית ישר למסך, אבל אני מעוניין שהמשתמש (הפשוט..) לא יצטרך לשחק בקובץ עצמו, כי זה עשוי לגרום למלא בעיות מלבד אי הנוחות שבדבר, לכן חשבתי לעשות קובץ אקסל, שבו יהיו הנתונים ולכתוב פונקציה שתקרא את הנתונים מהאקסל ותכניס אותם כל אחד למקומו במצגת (על אותו רעיון ניתן לטפל באובייקטים וכו' באמצעות התנייה שהtrue שלה יגיע מהאקסל..).

הפונקציה עצמה כבר כתובה ועומדת (בבסיס), אבל אני רוצה שהיא תופעל בלופ מיד עם הפעלת המצגת ועד לסיומה, כיצד אני יכול לעשות את זה?

להלן הפונקציה לקריאה מהאקסל ורישום לתיבת הטקסט בPowerPoint, אשמח להערות

Sub ReadFromExcelAndUpdate()
    Dim slide As slide
    Dim textBox As Shape
    Dim text As String
    Dim excelApp As Object
    Dim excelWorkbook As Object
    Dim excelWorksheet As Object
    Dim ifClose As Boolean
    
    Set slide = ActivePresentation.Slides(1)
    Set textBox = slide.Shapes("TextBox1")
    
    On Error Resume Next
    Set excelApp = GetObject(, "Excel.Application")
    On Error GoTo 0
    
    If excelApp Is Nothing Then
        Set excelApp = CreateObject("Excel.Application")
        ifClose = True
    End If
    
    On Error Resume Next
    Set excelWorkbook = excelApp.Workbooks.Open("C:\Users\Booklet1.xlsx")
    On Error GoTo 0
    
    If Not excelWorkbook Is Nothing Then
        Set excelWorksheet = excelWorkbook.Sheets("port96")
        text = excelWorksheet.Range("D5").Value
        textBox.TextFrame.TextRange.text = text
    End If
    
    If ifClose Then
        excelWorkbook.Close False
        excelApp.Quit
    End If

    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
End Sub

[pcinfogmach]

Private Sub App_PresentationOpen(ByVal Pres As Presentation)