Déclencher une macro a début d'une diapositive

[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.

[Philippe JOCHMANS]

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...

[Philippe JOCHMANS]

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.

[Philippe JOCHMANS]

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

[Philippe JOCHMANS]

Bonjour

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

Dans le module de classe, tu mets

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