Hallo Simon,
ja, ja die verdammten Events in Powerpoint. Um diese zu verwenden musst Du folgendes tun:
Anlegen eines neuen Klassenmoduls (Hier: Klasse1).
In dieses Klassenmodul schreibst Du:
Public WithEvents App As Application
Nach diesem Eintrag stehen Dir im Klassenmodul die Events der Application unter dem ComboBox-Eintrag App zur Verfügung,
in Deinem Fall wäre das
Private Sub App_SlideShowEnd(ByVal Pres As Presentation)
... hier Dein Code
End Sub
In einem normalen Codemodul trägst Du folgendes ein:
Dim X As New Klasse1
Sub InitializeApp()
Set X.App = Application
End Sub
Die Funktion InitializeApp musst Du in Deinem Code irgendwann aufrufen, sonst funktioniert es nicht.
Ich hoffe das hilft
Grüße Lutz
|