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.
Super User is a question and answer site for computer enthusiasts and power users. It only takes a minute to sign up.Sign up to join this community
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