How to change Powerpoint text in textbox on animation

Question

How do I change the text within a textbox when an animation starts playing?

For the graduation of some of our students we are looking to make it so their photo appears in tune with their name on a single sheet.

Answer 1

We can use a macro to change the text inside the presentation.

ActivePresentation.Slides(1).Shapes("Name Placeholder").TextFrame.TextRange = "John"

We can use multiple macros like the above and time it with the animations.

Dim time As Date
time = Now()

Dim count As Integer
time = DateAdd("s", 5, time) '5 refers to the seconds

Do Until time < Now()
DoEvents
If time < Now() Then

ActivePresentation.Slides(1).Shapes("Name Placeholder").TextFrame.TextRange = "John"

End If
Loop