Sub countdown()
Dim future As Date
future = DateAdd("n", 2, Now())
Do Until future _less than symbol_ Now()
DoEvents
ActivePresentation.Slides(1).Shapes("rectangle").TextFrame.TextRange = Format(future - Now(), "nn:ss")
Loop
End Sub
_The less than symbol is not allowed in a YouTube description_
--------------------------------------------------------------------------------
#powerpoint #powerpointtutorials
SUBSCRIBE: [ Ссылка ]
Microsoft Office 365, Beta Channel, Version 2107
---------------------------------------------------------------------------------
IF YOU LIKED THIS VIDEO YOU MAY ALSO LIKE:
- How to make a countdown timer in powerpoint [ Ссылка ]
- 30 second countdown timer in PowerPoint [ Ссылка ]
- How to make a sand timer animation in powerpoint [ Ссылка ]
How to make a countdown timer in powerpoint using VBA
Теги
powerpoint countdown timercountdown timer in powerpointpowerpoint timeradd a timer to powerpoint slideson screen countdown timer in powerpointmake a timer in powerpointget a countdown timer in powerpointadd a timer to a powerpoint presentationpowerpoint vba timervba powerpoint countdowncountdown timer in powerpoint with vbatimer in presentationcountdown timer with macropowerpoint macro countdowntimer macro powerpointpowerpoint vba macro