VBA alt programımı bir animasyonda aramak için Powerpoint'i nasıl alabilirim?

Question

Nihayetinde yapmak istediğim, PowerPoint slayt gösterisinde her yeni bir slayt görüntülendiğinde, komut satırı programı ShellExecute(). Office 2003 PowerPoint kullanıyorum.

aşağıdaki yaptım:

1. Araçlar > Seçenek > Güvenlik Seçenekler > Makro Güvenlik > Güvenlik Düzeyi = Orta

2. Araçlar > Seçenek > Makro > VBA Editörü:

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

3. Dosya > kaydet PowerPoint dön

4. : F5 (Slayt gösterisi için > Görünüm göster). .ppt dosyası tekrar F5) yeniden, PowerPoint dışına mesaj kutusu

5. Çık görmedik. Hala ileti kutusu

Soru görmüyorum: ben eksik? Slayt gösterisini çalıştırdığımda neden OnSlideShowPageChange başlatılmıyor ???

Answer 1

Tam olarak yukarıdaki adımları kullanarak, benim için gayet iyi çalışıyor. Tek düşünebildiğim, yukarıdaki 2. basamakta, OnSlideShowPageChange automacro'yu bir Class veya UserForm'a koymuş olabilirsiniz. Bir Modüle girmelidir (herhangi bir modül, herhangi bir isim). Ya da orada SlideShowNextSlide etkinliğini batırıyormuş gibi girişimde bulunabilecek başka bir kodunuz var mı?