création d'un affichage de temps sur une diapo

Question

Bonjour,
j'aimerais afficher le temps sur ma diapo afin de controler et de ne pas dépasser la durée autorisée. j'ai vu que on peut le faire à l'aide d'une macro sous visual basic. voici le code:

Sub DureeTotale()
'
'
Duree = 0
For Each dia In ActivePresentation.Slides
Duree = Duree + dia.SlideShowTransition.AdvanceTime
Next
Duree = Round(Duree)
Minutes = Int(Duree / 60)
Secondes = Duree Mod 60
MsgBox "Durée totale:" & Minutes & " minutes et " & Secondes & "secondes"

End Sub

quand j'exécute la macro, elle se lance bien mais elle s'arrête sur le temps initial (0mn0s). aussi, j'aimerais soit lancer la macro automatiquement quand j'afficherais le diaporama soit à l'aide d'un bouton double clic qui sera sur la première diapo.

si quelqu'un pourrait m'aider je serais so happy lol

merci pour vos futurs reponses qui, je sais, m'aideront lol

cs_Le Pivert · Answer

Bonjour, 
En VBA PowerPoint

Avec un bouton:
Sub PauseDateDiff(NbSec As Long)
  Dim tempotemp
  tempotemp = Now()
  Do Until (DateDiff("s", tempotemp, Now()) > NbSec)
    DoEvents
  Loop
End Sub
Sub test()
PauseDateDiff 5'temps de pause en secondes
End Sub
Private Sub CommandButton1_Click()
test'on démarre la pause
ActivePresentation.SlideShowWindow.View.GotoSlide (2)'diapo suivante en partant de la 1ère
End Sub
@+

jetenow · Answer

merci le pivert mais je n'y arrive toujours pas. j'ai bien créé une nouvelle macro mais rien

cs_Le Pivert · Answer

La macro que je vous ai envoyé ne marche qu'en mode diaporama.
Dans votre 1ère diapo vous mettez un bouton, vous cliquez sur ce bouton pour aller dans le module et vous mettez le code:
Private Sub CommandButton1_Click()
test'on démarre la pause
MsgBox "Il s'est écoulé 5 secondes"
End Sub
Sub PauseDateDiff(NbSec As Long)
  Dim tempotemp
  tempotemp = Now()
  Do Until (DateDiff("s", tempotemp, Now()) > NbSec)
    DoEvents
  Loop
End Sub
Sub test()
PauseDateDiff 5'temps de pause en secondes
End Sub

 
@+ Le Pivert

jetenow · Answer

merci le pivert de m'avoir à nouveau répondu. je n'arrive pas à afficher le temps. j'utilise powerpoint 2007. sous l'onglet affichage, je clique sur macro. je mets un nom à ma macro, je copie et colle votre script dans le corps de ma macro. en redémarrant la diapo j'active la macro. mais aucun affichage du temps. est bien cela la bonne manip?

merci

cs_Le Pivert · Answer

Vous allez dans: Affichage-Barre d'outils-Boite à outils controle.Pour avoir les outils. 
Vous mettez un bouton dans la 1ère diapo, cliquez dans le bouton cela ouvre VisualBasic, vous trouverez ce code:
Private Sub CommandButton1_Click()

End Sub

Il suffit de mettre dedans:
test'on démarre la pause
MsgBox "Il s'est écoulé 5 secondes"
ce qui donne:
Private Sub CommandButton1_Click()
test'on démarre la pause
MsgBox "Il s'est écoulé 5 secondes"
End Sub

ensuite vous mettez la macro comme ceci:
Sub PauseDateDiff(NbSec As Long)
  Dim tempotemp
  tempotemp = Now()
  Do Until (DateDiff("s", tempotemp, Now()) > NbSec)
    DoEvents
  Loop
End Sub
Sub test()
PauseDateDiff 5'temps de pause en secondes
End Sub

Vous mettez en mode diapo et vous cliquez sur le bouton.
 j'espère avoie été assez clair
@+ Le Puvert

jetenow · Answer

salut,
je ne trouve pas:  Boite à outils controle dans Affichage-Barre d'outils. j'utilise powerpoint 2007.

cs_Le Pivert · Answer

j'utilise powerpoint 2003 voici une capture d'écran:

cs_Le Pivert · Answer

Je n'arrive pas à envoyer la capture, je ne sais pas comment faire?

jetenow · Answer

je peux t'envoyer mon mail en privé?

cs_Le Pivert · Answer

OK envoies-moi ton mail sur MP, je te ferais parvenir la capture ainsi qu'une présentation avec la macro.
@+

Création d'un affichage de temps sur une diapo

10 réponses

Votre réponse

Discussions similaires