Как изменить текст Powerpoint в текстовом поле на анимации
Как изменить текст в текстовом поле, когда анимация начинает воспроизводиться?
Для выпуска некоторых наших студентов мы стремимся сделать так, чтобы их фотография отображалась в соответствии с их именем на одном листе.
0 ответов
Мы можем использовать макрос для изменения текста внутри презентации.
ActivePresentation.Slides(1).Shapes("Name Placeholder").TextFrame.TextRange = "John"
Мы можем использовать несколько макросов, как показано выше, и синхронизировать их с анимацией.
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