[Powerpoint/VBA] Slide Load event?

[Anoniem: 58296]

Ik ben wat aan het prutsen met VBA en PowerPoint.
De situatie is nu de volgende:
Slide 1:
Filmpje en een knop om filmpje te maximaliseren
Slide 2:
resetknop voor slide 1

Met VBA laat dus slide 2 slide 1 resetten (filmpje verkleinen) als er op de knop van slide 2 wordt gedrukt.
Nu wil ik dit automatisch doen als slide 2 wordt geladen (of slide 1 op het einde is), zodat ik de resetknop niet meer nodig heb.
Ik ben dus op zoek naar een functie die wordt aangeroepen als een slide geladen/ontladen wordt.
(Iets als Form_Load, als je werkt met een VB-form)

Mijn code mag enkel worden aangeroepen tijdens een echte presentatie (en niet tijdens het opmaken ervan).

Ik vind er niet zo meteen iets over op google en msdn helpt met niet verder.

[skate master]

Ik heb hier een tijd terug ook naar gezocht, heb alleen ook niets kunnen vinden.
Ben bang dat het ook niet zal gaan lukken.
Maar ik hoop dat er hier iemand langs komt wie de verlossende oplossing heeft.

[Anoniem: 113297]

maak een klassemodule aan genaamd "SlideGebeurtenis" met de volgende code:

Visual Basic:

Option Explicit

Public WithEvents VolgendeSlide As PowerPoint.Application

Private Sub VolgendeSlide_SlideShowNextSlide _
    (ByVal Wn As SlideShowWindow)
  If Wn.View.CurrentShowPosition = 2 Then
    'slide 2
    'plaats hier je code die achter
    'de knop zat in slide 2
  End If
End Sub

in een gewone module plaats je hetvolgende:

Visual Basic:

Option Explicit

Public SlideEvent As SlideGebeurtenis

Public Sub GebeurtenisAfhandelaarInitialiseren()
  Set SlideEvent = New SlideGebeurtenis
  Set SlideEvent.VolgendeSlide = PowerPoint.Application
End Sub

opgelet 'option explicit' vereist dat je al je variabelen declareert. als je dat niet wenst, verwijder dan het option explicit statement.

edit:om de gebeurtenisafhandelaar in te stellen, moet je de gewone module uitvoeren, als je dan f5 drukt voor de presentatie zal deze geactiveerd zijn. je kan deze code ook in een autoexec of autoopen plaatsen, weet niet of dat bestaat voor powerpoint.

[ Voor 17% gewijzigd door Anoniem: 113297 op 25-11-2005 13:31 ]

[skate master]

wow bedankt, hier was ik naar op zoek.