[PPT-2003] Connaitre le temps total d'un diaporama [Résolu]

[bolide7]

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 :

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 :

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 :

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

[Philippe JOCHMANS]

Bonjour

Il n'y aucune différence, le principe est toujours d'incrémenter une variable avec la durée de chaque diapo. Ce qui change c'est la méthode de parcours.

Dans le premier cas on fait une boucle pour parcourir chaque diapo à partir de son index (i).
Dans le deuxième cas on parcourt la collection des diapositives présentent dans la présentation.

Ce texte est à insérer dans l'éditeur VB.

Fais Alt+F11
Insère un module
Colle le premier code
Mets le curseur à l'intérieur et appui sur la touche F5.

Philippe

[bolide7]

Bonjour Philippe,
Tout d'abord merci pour avoir déplacé mon message et l'avoir mis au bon endroit.
Mais je n'avais pas vu cette possibilité.
Pour ce qui est de la macro de DEVELOPPEZ.COM, lorsque je positionne mon curseur dans le texte et fais F5, j'ai un message d'erreur : Erreur d'exécution 424 Objet requis.
Ca aurait été trop beau que cela fonctionne du premier coup !
D'autre part, j'ai vu sur Internet, qu'ensuite on peut en faire un bouton à mettre dans la barre d'outils, qui permet en cliquant sur ce bouton de connaître la durée totale du diaporama.
Pourrais tu m'en dire plus sur la marche à suivre pour insérer ce bouton ?
D'avance merci pour tes compléments d'informations.
bolide7

[Philippe JOCHMANS]

Re

Reprenons les choses dans l'ordre :

Quel code as-tu utilisé ? Si c'est le premier, as-tu une variable qui se nomme Ppp1 ?
Mets le code utilisé, et le nom de ton diaporama sur le forum.

Pour l'histoire du bouton :

• Clique droit sur le menu et choisi "Personnaliser"
• Sélectionner l'onglet "Commande"
• En bas de la première liste sélectionner "Macro"
• Dans la liste de gauche apparaît la liste des macros (dans la mesure où les macros aient été déclarée en public).
• Tu sélectionnes la macro avec la souris et tout en gardant le bouton gauche appuyé tu la glisses dans le menu.

Philippe

[bolide7]

Bonjour Philippe,
La macro utilisée est la première, celle de DEVELOPPEZ.COM.
Je te confirme qu'il y a bien une variable nommer ppp1.
Le nom de mon diaporama est "Durée d'un diaporama".
Pour ce qui est du bouton, même si je n'en suis pas encore là, c'est quoi l'histoire de la déclaration en public ?
A +

[Philippe JOCHMANS]

Re

Comment est déclarée cette variable ? Quelle est le nom de ta présentation ?

Philippe

[bolide7]

Bonjour Philippe,
Je ne comprends pas ta question.
C’est quoi cette histoire de déclaration ?
Tu sembles oublier que c’est ma première macro et encore c’est bien exagéré comme titre puisqu’il ne s’agit que d’un copier coller et que je comprends absolument rien au charabia contenu dans ce copier coller.
En conséquence, pour avancer plus rapidement, merci d’avance de préciser tes questions.
Comme indiqué précédemment, le nom de mon diaporama est "Durée d'un diaporama".
A bientôt.
bolide7

[Philippe JOCHMANS]

Ok

Essayes cela :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Defile()
    ' déclaration
    Dim i As Integer
    Dim x As Long
    Dim Ppp1 As Presentation
 
    ' affectation
    Set Ppp1 = ActivePresentation
 
    ' boucle
    For i = 1 To Ppp1.Slides.Count
        x = x + Ppp1.Slides(i).SlideShowTransition.AdvanceTime
    Next i
    MsgBox x
End Sub

Philippe

[bolide7]

Bonjour Philippe,
Je ne sais pourquoi, avec cette macro CA MARCHE !
Un chiffre apparaît dans une petite fenêtre.
Ce chiffre sans unité correspond en réalité à la durée totale du diaporama exprimée en secondes.
Il ne me reste plus qu’à convertir en minutes et en secondes.
J’ai même créé un bouton avec un symbole, un sablier, et du texte « Defile ».
Justement à ce sujet, est il possible de supprimer le texte « Defile » de ce bouton et ne laisser que le sablier ?
Curieux de nature, et même si j’ai fais sans, pourrais tu également me préciser à quoi correspond cette histoire de déclaration en public ?
D’avance merci.
bolide7

[Philippe JOCHMANS]

Re

Envoyé par bolide7

Je ne sais pourquoi, avec cette macro CA MARCHE !

Je te fais un topo ce soir, j'aurais plus de temps pour te détailler le pourquoi du comment.

Philippe

[Philippe JOCHMANS]

Re

Le code ne reconnaissait pas Ppp1, il fallait déclarer cette variable et lui affecter la présentation en cours.

Qu'est-ce que tu appelles le texte "Defile"

Un excellent tuto à lire sur le sujet fait par un de mes amis : Initiation au VBA Office, tu y trouveras un sujet sur les déclarations.

Philippe

[bolide7]

Bonjour Philippe,
Dans "Personnalisation" de la barre d'outils, puis dans l'onglet "Commandes", lorsque je suis dans "Catégories" en face du mot "Macros" correspond dans l'autre fenêtre "Commandes", le mot "Defile".
C'est ce mot "Defile", que je fais glisser jusque sur la barre d'outils pour créer un bouton.
Ainsi, on retrouve le bouton avec le mot "Defile" dans la barre d'outils.
A priori ce mot "Defile" correspond au deuxième mot de ta macro :

Code :

Sub Defile()

Hélas, je ne peux pas t'en dire plus.
bolide7

[bolide7]

Bonjour Philippe,
Si tu n'es pas parti en congé, pourrais tu reprendre mes précédents messages, afin de terminer l'échange en cours.
D'avance, merci beaucoup.
bolide7

[Philippe JOCHMANS]

Re

Pas parti en congé, mais beaucoup de travail

Il faut reprendre la manipulation en menu personnalisé, et un clique droit sur ce bouton, tu pourras modifier le nom.

Philippe

[bolide7]

Bonjour Philippe,
Merci de t'occuper de mon cas.
Ma question du 08/08/11 ne concernait pas le changement de nom de ce bouton, mais seulement la suppression du nom de ce bouton, "Defile", afin de ne laisser que l'image du bouton, le sablier.
Et c'est là que je coince.
En effet, les autres boutons de la barre d'outils de POWERPOINT n'ont pas de texte. Alors pourquoi celui là devrait en avoir ?
D'avance merci.
bolide7

[bbil]

Comme dit philippe tu reprends la manipulation des boutons personnalisés... tu clique avec le bouton droit sur le bouton et tu regarde les options disponible pour l'affichage choisi "Par défaut" (à la place de image et texte)

[bolide7]

Bonjour bbil,
Cela va beaucoup mieux lorsque l'on a le détail de la manip à réaliser et cette précision essentielle, cocher "Par défaut".
Même s'il ne s'agissait en réalité que d'un simple copier-coller, c'était quand même ma première macro.
Merci beaucoup à Philippe et à bbil pour avoir résolu mon problème.
Bonne fin de journée.
bolide7