Discussion :

[krhyme]

Bonjour à tous, voilà j'aimerai pouvoir déclencher une macro à l'initialisation d'une diapo à l'instar de userform_activate pour un form.

diapo n°5 >> diapo n°6
|(macro)


Merci d'avance.

[Invité]

Bonjour

Je pense que la lecture de cet article http://www.developpez.net/forums/sho...d.php?t=530003, au 4 ème post devrait t'aider.

Starec

[krhyme]

Merci, pour ta réponse mais je l'ai déjà lu. J'ai des petites notions de VBA et j'essaye de m'inspirer de ce code, mais cela ne marche pas.

Concrètement, j'aimerai que par ex au démarrage de la diapo n°6, cela lance la macro sub macro6. Pour la diapo n°8, ça lance la diapo n°8. etc...

[Invité]

Bonjour

As-tu bien exécuter la routine dans le module standard (et non le module de Classe), si tu fais une modification il faut la relancer à chaque fois.

Peux-tu mettre le code que tu as mis et où l'as-tu placé, où au mieux mettre ton fichier PPT (en le zippant) en pièce jointe. J'essaierais de regarder ce soir.

De plus quelle est la version de PPT ?

Starec

[krhyme]

Merci beaucoup pour ta proposition, mais a vrai dire je l'ai effacé vu que cela ne marchait pas. En fait, ce que je cherche à faire est très simple, j'ai intégrer des animations ".swf" dans mes diapos.

Malheureusement, les animations ne se rembobiner pas automatiquement, elles ne démarre pas donc au début. Je voulais utiliser une macro au début de chaque diapo, pour rembobiner et démarrer l'anim à son début.

[Invité]

Re

Ok, je vois. Je pense qu'il faut essayer avec une diapositive personnalisée, je ferais un test.

Quelle est ta version de PPT ?

Starec

[krhyme]

PPT 2007

[Invité]

Bonjour

On va reprendre intégralement le code du lien que je t'ai donné.

Dans le module de classe, tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
 
    Dim sldw As SlideShowWindow
    Set sldw = Wn
    If sldw.View.CurrentShowPosition = 3 Then
        Slide3.ShockwaveFlash1.Rewind
        DoEvents
        Slide3.ShockwaveFlash1.Play
    End If
End Sub

on test la diapositive, ici c'est la 3, en rembobine l'animation (Rewind), et on la joue.

Tu as en pièce jointe le fichier sur lequel j'ai travaillé, ne pas oublier de revalider par F5 le code qui est dans le module1, comme sur le lien que je t'avais donné.

Quand tu arrives à la diapo 3, l'animation se fait, si tu reviens à la deux et que tu passes à la 3, elle recommence.

Deux articles à lire
http://silkyroad.developpez.com/VBA/PiloterFlash/ pour Excel de Silkyroad
http://dolphy35.developpez.com/artic.../fiches/flash/ de Dolphy35, sur lequel j'ai vu l'animation.

Starec