Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Pierre FORESTIER
Oui, voici une macro qui le fait à merveille. Il faudra enregistrer la présentation contenant cette macro en tant que .PPA Puis dans Outils/Macro complémentaire, l'appeler pour qu'elle soit présente dans toutes les présentation. Attention de ne plus déplacer ou effacer la présentation contenant la macro
Sub DureeTotale() ' ' Macro créée 09/11/02 par Jean-Pierre FORESTIER ' 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 -- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "marc" a écrit dans le message news: 20fd801c45a03$a5dde140$ bonjour,
y a-t-il un moyen de connaître le minutage total d'une présentation (transition + animations) sans passer par le diaporama ?
Oui, voici une macro qui le fait à merveille. Il faudra enregistrer la
présentation contenant cette macro en tant que .PPA
Puis dans Outils/Macro complémentaire, l'appeler pour qu'elle soit présente
dans toutes les présentation.
Attention de ne plus déplacer ou effacer la présentation contenant la macro
Sub DureeTotale()
'
' Macro créée 09/11/02 par Jean-Pierre FORESTIER
'
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
--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"marc" <anonymous@discussions.microsoft.com> a écrit dans le message news:
20fd801c45a03$a5dde140$a501280a@phx.gbl...
bonjour,
y a-t-il un moyen de connaître le minutage total d'une
présentation (transition + animations) sans passer par le
diaporama ?
Oui, voici une macro qui le fait à merveille. Il faudra enregistrer la présentation contenant cette macro en tant que .PPA Puis dans Outils/Macro complémentaire, l'appeler pour qu'elle soit présente dans toutes les présentation. Attention de ne plus déplacer ou effacer la présentation contenant la macro
Sub DureeTotale() ' ' Macro créée 09/11/02 par Jean-Pierre FORESTIER ' 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 -- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "marc" a écrit dans le message news: 20fd801c45a03$a5dde140$ bonjour,
y a-t-il un moyen de connaître le minutage total d'une présentation (transition + animations) sans passer par le diaporama ?
marc
merci jean-pierre,
je cherchais en fait une commande existante de PowerPoint qui permette de connaître ce minutage total. n'en existe-t-il pas une ? je suis trop peu sûr de moi pour me lancer dans les macros
-----Message d'origine----- Oui, voici une macro qui le fait à merveille. Il faudra enregistrer la
présentation contenant cette macro en tant que .PPA Puis dans Outils/Macro complémentaire, l'appeler pour qu'elle soit présente
dans toutes les présentation. Attention de ne plus déplacer ou effacer la présentation contenant la macro
Sub DureeTotale() ' ' Macro créée 09/11/02 par Jean-Pierre FORESTIER ' 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 -- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "marc" a écrit dans le message news:
20fd801c45a03$a5dde140$ bonjour,
y a-t-il un moyen de connaître le minutage total d'une présentation (transition + animations) sans passer par le diaporama ?
.
merci jean-pierre,
je cherchais en fait une commande existante de PowerPoint
qui permette de connaître ce minutage total.
n'en existe-t-il pas une ?
je suis trop peu sûr de moi pour me lancer dans les macros
-----Message d'origine-----
Oui, voici une macro qui le fait à merveille. Il faudra
enregistrer la
présentation contenant cette macro en tant que .PPA
Puis dans Outils/Macro complémentaire, l'appeler pour
qu'elle soit présente
dans toutes les présentation.
Attention de ne plus déplacer ou effacer la présentation
contenant la macro
Sub DureeTotale()
'
' Macro créée 09/11/02 par Jean-Pierre FORESTIER
'
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
--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"marc" <anonymous@discussions.microsoft.com> a écrit dans
le message news:
je cherchais en fait une commande existante de PowerPoint qui permette de connaître ce minutage total. n'en existe-t-il pas une ? je suis trop peu sûr de moi pour me lancer dans les macros
-----Message d'origine----- Oui, voici une macro qui le fait à merveille. Il faudra enregistrer la
présentation contenant cette macro en tant que .PPA Puis dans Outils/Macro complémentaire, l'appeler pour qu'elle soit présente
dans toutes les présentation. Attention de ne plus déplacer ou effacer la présentation contenant la macro
Sub DureeTotale() ' ' Macro créée 09/11/02 par Jean-Pierre FORESTIER ' 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 -- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "marc" a écrit dans le message news:
20fd801c45a03$a5dde140$ bonjour,
y a-t-il un moyen de connaître le minutage total d'une présentation (transition + animations) sans passer par le diaporama ?
.
Jean-Pierre FORESTIER
Il n'y a pas de commande toute faite. Alors ? Bé tu vas faire ta première macro ! Laisse moi ton mail direct et je t'enverrai en Word, la méthode...Qui est toujours plus simple que ce qu'on imaginait !
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "marc" a écrit dans le message news: 2101901c45a08$463d09a0$ merci jean-pierre,
je cherchais en fait une commande existante de PowerPoint qui permette de connaître ce minutage total. n'en existe-t-il pas une ? je suis trop peu sûr de moi pour me lancer dans les macros
-----Message d'origine----- Oui, voici une macro qui le fait à merveille. Il faudra enregistrer la
présentation contenant cette macro en tant que .PPA Puis dans Outils/Macro complémentaire, l'appeler pour qu'elle soit présente
dans toutes les présentation. Attention de ne plus déplacer ou effacer la présentation contenant la macro
Sub DureeTotale() ' ' Macro créée 09/11/02 par Jean-Pierre FORESTIER ' 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 -- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "marc" a écrit dans le message news:
20fd801c45a03$a5dde140$ bonjour,
y a-t-il un moyen de connaître le minutage total d'une présentation (transition + animations) sans passer par le diaporama ?
.
Il n'y a pas de commande toute faite.
Alors ? Bé tu vas faire ta première macro !
Laisse moi ton mail direct et je t'enverrai en Word, la méthode...Qui est
toujours plus simple que ce qu'on imaginait !
--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"marc" <anonymous@discussions.microsoft.com> a écrit dans le message news:
2101901c45a08$463d09a0$a501280a@phx.gbl...
merci jean-pierre,
je cherchais en fait une commande existante de PowerPoint
qui permette de connaître ce minutage total.
n'en existe-t-il pas une ?
je suis trop peu sûr de moi pour me lancer dans les macros
-----Message d'origine-----
Oui, voici une macro qui le fait à merveille. Il faudra
enregistrer la
présentation contenant cette macro en tant que .PPA
Puis dans Outils/Macro complémentaire, l'appeler pour
qu'elle soit présente
dans toutes les présentation.
Attention de ne plus déplacer ou effacer la présentation
contenant la macro
Sub DureeTotale()
'
' Macro créée 09/11/02 par Jean-Pierre FORESTIER
'
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
--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"marc" <anonymous@discussions.microsoft.com> a écrit dans
le message news:
Il n'y a pas de commande toute faite. Alors ? Bé tu vas faire ta première macro ! Laisse moi ton mail direct et je t'enverrai en Word, la méthode...Qui est toujours plus simple que ce qu'on imaginait !
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "marc" a écrit dans le message news: 2101901c45a08$463d09a0$ merci jean-pierre,
je cherchais en fait une commande existante de PowerPoint qui permette de connaître ce minutage total. n'en existe-t-il pas une ? je suis trop peu sûr de moi pour me lancer dans les macros
-----Message d'origine----- Oui, voici une macro qui le fait à merveille. Il faudra enregistrer la
présentation contenant cette macro en tant que .PPA Puis dans Outils/Macro complémentaire, l'appeler pour qu'elle soit présente
dans toutes les présentation. Attention de ne plus déplacer ou effacer la présentation contenant la macro
Sub DureeTotale() ' ' Macro créée 09/11/02 par Jean-Pierre FORESTIER ' 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 -- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "marc" a écrit dans le message news:
20fd801c45a03$a5dde140$ bonjour,
y a-t-il un moyen de connaître le minutage total d'une présentation (transition + animations) sans passer par le diaporama ?
