小编Ram*_*man的帖子

我正在尝试在 PowerPoint 中创建计时器。我编写了一段代码来通过 VBA 循环更改形状的文本。在演示模式下，我只能看到第一个和最后一个更改。中间的更改在屏幕上不可见。有没有办法在每次更改后刷新对象？请帮忙

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Test()
    ActivePresentation.Slides(2).Shapes(1).TextFrame.TextRange.Text = 0

    For i = 0 To 5
        Sleep (1000)
        ActivePresentation.Slides(2).Shapes(1).TextFrame.TextRange.Text = i
    Next
End Sub