![如何在动画中更改文本框中的 Powerpoint 文本](https://linux22.com/image/1563202/%E5%A6%82%E4%BD%95%E5%9C%A8%E5%8A%A8%E7%94%BB%E4%B8%AD%E6%9B%B4%E6%94%B9%E6%96%87%E6%9C%AC%E6%A1%86%E4%B8%AD%E7%9A%84%20Powerpoint%20%E6%96%87%E6%9C%AC.png)
当动画开始播放时,如何更改文本框内的文本?
对于一些学生的毕业,我们希望他们的照片和姓名能够出现在一张纸上。
答案1
我们可以使用宏来改变演示文稿中的文本。
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