Cómo usar VBA para implementar la función de temporizador en una presentación de diapositivas

Solo existen los siguientes requisitos, solo como referencia:

Comience la cuenta regresiva hasta un determinado evento al mismo tiempo que un evento activado La cantidad de segundos (por ejemplo, 5 minutos, debe poder usar VBA para ajustar la velocidad real, como cada vez que la pantalla salta durante 1 segundo y en realidad pasan 1100 milisegundos);

Coloque una etiqueta1 y un botón de comando1 en el formulario

Luego copie y pegue (para la cuenta atrás, modifique):

Función de declaración privada GetTickCount Lib "kernel32 .dll" () Mientras

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillisegundos Mientras)

Const InterVal = 100 'Intervalo personalizado

Private Sub CommandButton1_Click()

Estado estático como booleano, myStop como booleano

Dim preT As Long, curT As Long, myTime As Long

Si el estado entonces myStop = True: Salir Sub

CommandButton1.Caption = "Detener"

Estado = True

preT = GetTickCount

Etiqueta = 0

Hacer

curT = GetTickCount

Si curT - preT > = InterVal * (myTime + 1) Entonces

myTime = myTime + 1

Etiqueta1 = myTime

DoEvents

Finalizar si

Dormir (20)

Etiqueta2 = Hora

DoEvents

Si myStop Entonces

Estado = False

myStop = False

CommandButton1.Caption = " Inicio"

Salir Sub

Fin Si

Bucle

End Sub

Finalmente una macro en un módulo :

Sub ShowForm()

<'

' Macro documentada por XOoo, Fecha.