none
Contador em vba no power point 2007 RRS feed

  • Pergunta

  • Srs boa tarde!

    Estou precisando de incluir um contador e um cronometro em uma apresentação no powerpoint2007 que acrescente 1 à cada 40segundos e que fique visível durante toda a apresentação. Preciso concluir a apresentação associando o tempo da apresentação com a quantidade de eventos de 40s que ocorreram.Consegui o código abaixo mas o mesmo não está funcionando no ppt2007. Alguém poderia me ajudar?

    Gostaria de ressaltar que não sei nada de VBA e necessito do contator e do time para a conclusão de um tcc. 

        

    Desde já agradeço a ajuda!!

    Att.

    Edilson Costa de Oliveira

    Dim Offset As Single
    Dim CountNo As Long
    Dim x As Single


    Private Sub CommandButton1_Click()

    Offset = ActivePresentation.PageSetup.SlideHeight + 10
    CountNo = 1
    ' ADJUST THIS waitTime NUMBER WITH SECONDS DELAY BETWEEN COUNTER INCREMENTS
    waitTime = 0.4
    ' ADJUST THIS maxCount NUMBER WITH MAXIMUM NUMBER COUNTER SHOULD REACH
    maxCount = 5000

    Do Until CountNo = maxCount + 1
      ActivePresentation.SlideMaster.Shapes("Counter").TextFrame.TextRange.Text = CountNo
      ActivePresentation.SlideMaster.Shapes("Counter").Top = ActivePresentation.SlideMaster.Shapes("Counter").Top + Offset
      DoEvents
      ActivePresentation.SlideMaster.Shapes("Counter").Top = ActivePresentation.SlideMaster.Shapes("Counter").Top - Offset

      x = Timer
      While Timer - x < waitTime
        DoEvents
      Wend

      CountNo = CountNo + 1

      If SlideShowWindows.Count = 0 Then
        ActivePresentation.SlideMaster.Shapes("Counter").TextFrame.TextRange.Text = 1
        ActivePresentation.SlideMaster.Shapes("Counter").Top = ActivePresentation.SlideMaster.Shapes("Counter").Top + Offset
        DoEvents
        ActivePresentation.SlideMaster.Shapes("Counter").Top = ActivePresentation.SlideMaster.Shapes("Counter").Top - Offset
        Exit Do
      End If

    Loop

    End Sub


    quarta-feira, 13 de junho de 2018 19:01