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
