How to create a count-up timer in VBA

Question

I am trying to create a counter that increments 1 every second in VBA of Powerpoint presentation. This is what I have come up so far.

Sub countup()
    Dim index As Integer

    index = 0
    Do Until index > 100
    index = index + 1

    DoEvents
        With ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange
        .Text = index
        End With

    Loop
End Sub

This code increments 1 until 101 but it does not increment 1 every second. This is in VBA Powerpoint so I cannot put a timer control. Hope you could help. Thank you.

Vityata · Accepted Answer · 2017-09-14 12:46:04Z

3

This is a possible solution:

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

Public Sub TestMe2()

    Dim index As Long
    index = 0

    Do Until index > 10
        index = index + 1
        Debug.Print index
        Sleep (1000)
    Loop

End Sub

Without adding .Net features, its possible to do it like this:

Public Sub TestMe()

    Dim lngIndex            As Long
    Dim sngSec              As Single '9GAG
    Dim sngAddSec           As Single

    sngAddSec = 1

    Do Until lngIndex > 4
        lngIndex = lngIndex + 1
        sngSec = Timer + sngAddSec
        Debug.Print lngIndex
        While Timer < sngSec: Wend
    Loop

End Sub

edited Sep 14, 2017 at 12:46

answered Sep 14, 2017 at 12:15

Vityata

43.8k10 gold badges64 silver badges110 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to create a count-up timer in VBA

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related