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.

  • What do you mean about "change the text within a textbox when an animation starts playing"? – WinniL Jun 19 '18 at 7:28
  • 1
    About the photo, you can insert the picture with their names, then set the animation for each photo. – WinniL Jun 19 '18 at 7:29
  • 1
    I was referring to something that happens often when programming, re-using a textbox but changing the text when a button/event happens (In this case a animation event) It's no longer really needed though ^-^ – Servicedesk-ictopleiding Jun 19 '18 at 7:33

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()
If time < Now() Then

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

End If

| improve this answer | |

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.