小编Kus*_*aha的帖子

我使用以下代码进行倒计时，在幻灯片放映模式下，该倒计时将跨越 10 张幻灯片。我将形状放置在 SlideMaster Layout 中。

Set QS = ActivePresentation.Designs(2).SlideMaster.CustomLayouts(2)
Dim Seconds As Integer
Seconds = 30
QS.Shapes("Counter").TextFrame.TextRange = Seconds

For i = 1 To 30
   Dim WAIT As Double
   WAIT = Timer
   While Timer < WAIT + 1
        DoEvents  
   Wend
        Seconds = Seconds - 1
        QS.Shapes("Counter").TextFrame.TextRange = Seconds
Next i

Dim time As Date
Dim count As Integer

time = Now()
count = 30

time = DateAdd("s", count, time)

Do Until time < Now
DoEvents

With ActivePresentation.Designs(2).SlideMaster.CustomLayouts(2).Shapes("Counter").TextFrame.TextRange
.Text = …

当我们使用pause它时显示"按任意键继续......".按任意键后,后一个文本保留,剩下的文本显示在其下方.如果我cls在pause整个屏幕被清除后使用.

是否有任何方法只能删除"按任意键继续......" 按任意键后？另外,如何仅清除选定的行而不是清除整个屏幕？