none
Slide con countdown

    Discussione generale

  • Buongiorno a tutti!

    Ho la necessità di proiettare su una diapositiva un countdown. E fino a quì, niente di strano, ho usato questo:

    Sub countDown()
    Dim time As Date
    Dim count As Integer

    time = Now()
    count = 1800

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

    Do Until time < Now()
    DoEvents

    With ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange
        .Text = Format((time - Now()), "hh:mm:ss")
    End With

    Loop

    End Sub

    Mi piacerebbe, però, svilupparlo come segue: data l'ora attuale (che deve apparire anch'essa sulla diapositiva e deve scorrere in tempo reale, dentro una shape così come il countdown), e dato un orario fissato, che appare anch'esso sulla diapositiva( sempre dentro una shape), il countdown deve iniziare nel momento in cui l'ora attuale coincide con l'orario fissato (sempre formato hh:mm:ss). Fino a quel momento, anche facendo partire la presentazione, il countdouwn deve mostrare fisso il tempo impostato (nel caso specifico, 1800 secondi sono 30 minuti).

    Ero riuscito, con un altro ciclo uguale nello stesso modulo, a mettere una shape con l'orario attuale, ma si alternavano: o scorreva il tempo, o scorreva il countdown. Allora mi sono arreso.

    Qualcuno riesce ad aiutarmi?

    Grazie,
    Marco


    mercoledì 9 maggio 2018 10:12

Tutte le risposte

  • stai parlando di PowerPoint ?
    • Modificato patel45 mercoledì 9 maggio 2018 11:23
    mercoledì 9 maggio 2018 11:06
  • Ciao Marchino, sei certo di aver postato nella sezione giusta ? stai parlando di PowerPoint ?

    Ciao!

    Ho postato quì perchè, benchè l'applicazione finale sia PowerPoint, sto sviluppando la macro con Visual Basic e la mia domanda riguarda essenzialmente la programmazione.

    mercoledì 9 maggio 2018 11:27