Bonjour à tous,
Pour ma première macro, j'aurai souhaité connaître le temps total de présentation de mon diaporama, dont les diapos sont paramétrées pour défiler automatiquement.
A priori, c'est possible, mais uniquement avec une macro trouver sur ce site.
Merci DEVELOPPEZ.COM :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Defile()
    Dim i As Integer
    Dim x As Long        
    For i = 1 To Ppp1.Slides.Count
        x = x + Ppp1.Slides(i).SlideShowTransition.AdvanceTime
    Next i        
    MsgBox x
End Sub
Problème où dois je insérer ce texte, dont les caractéristiques sont totalement en dehors de mes compétences ?
Sur mon écran, j'ai ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub Macro1()
'
' Macro enregistrée le 02/08/2011 par bolide7
'
 
    Application.CommandBars("Stop Recording").Visible = False
End Sub
Dois je supprimer la totalité de ce texte et le remplacer par la macro ou dois je insérer la macro au milieu de ce texte ?
Si oui, où dois je mettre le texte de la macro ?

En fouillant sur Internet, j'ai également trouvé cette autre macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
Par contre, si elle donne le même résultat, le texte me paraît bien différent.
Quelle est sa différence ?

D'avance, merci beaucoup pour toutes vos explications.
bolide7