Увеличьте скорость таймера обратного отсчета

#vba #powerpoint Вопрос: Sub countdown() Dim time As Date time = Now() time = DateAdd("s", 30, time) Do Until time < Now() DoEvents oSh.TextFrame.TextRange = Format((time - Now()), "ss") Loop…