Comment puis-je obtenir Powerpoint pour appeler mon sous-programme VBA dans une animation?

Question

Ce que je veux finalement faire est ShellExecute() un programme en ligne de commande à chaque fois une nouvelle diapositive apparaît dans mon diaporama PowerPoint. J'utilise Office 2003 PowerPoint.

je l'ai fait ce qui suit:

1. Outils > Options > Options de sécurité > Sécurité des macros > Niveau de sécurité = Moyen

2. Outils > Options > Macro > VBA Editor:

   Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
     MsgBox ("OnSlideShowPageChange")
   End Sub
   

3. Fichier > Enregistrer

4. Retour à PowerPoint: F5 (pour le diaporama > Voir Show). n'a pas vu la boîte de message

5. Quittez PowerPoint, ouvrez à nouveau le fichier .ppt, F5 ) à nouveau. ne voient toujours pas la boîte de message

Question : Qu'est-ce que je manque? Pourquoi ne pas se OnSlideShowPageChange invoqué quand je lance le diaporama ???

Answer 1

Il fonctionne très bien pour moi, en utilisant exactement vos étapes ci-dessus. La seule chose que je peux penser est à l'étape 2 ci-dessus, vous avez peut-être mettre le OnSlideShowPageChange AutoMacro dans une classe ou UserForm. Il devrait aller dans un module (tout module, tout nom). Ou avez-vous autre code là-dedans qui peuvent interférer, comme vous sont en train de sombrer aussi l'événement SlideShowNextSlide?