Jak mogę przekonać program Powerpoint do wywoływania podprogramu VBA w animacji?

Question

Co ostatecznie chcę zrobić, to ShellExecute() program linii poleceń za każdym razem, gdy pojawi się nowy slajd w moim pokazie slajdów PowerPoint. Korzystam z programu PowerPoint 2003 dla pakietu Office.

Zrobiłem następujące:

1. Narzędzia > Opcje > Opcje zabezpieczeń > Bezpieczeństwo makr > poziom zabezpieczeń = Średni

2. Narzędzia > Opcje > Makro > VBA Edytor:

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

3. pliku > Zapisz

4. Powrót do PowerPoint: F5 (pokaz slajdów > Zobacz Show). nie widzi w oknie komunikatu

5. Wyjdź z PowerPoint, ponownie otworzyć plik .ppt, F5) dzięki. nadal nie widać okno komunikatu

Pytanie: Czego mi brakuje? Dlaczego nie jest uruchamiany OnSlideShowPageChange po uruchomieniu pokazu slajdów ???

Answer 1

Działa to dobrze dla mnie, używając dokładnie powyższych kroków. Jedyne, o czym myślę, że jestem na etapie 2 powyżej, mogłeś umieścić automacro OnSlideShowPageChange w klasie lub UserForm. Powinien wejść w moduł (dowolny moduł, dowolna nazwa). A może masz inny kod, który może przeszkadzać, np. Czy pogrążasz się w wydarzeniu SlideShowNextSlide?