Aktive Folie in Powerpoint ermitteln Funktion, die eine Referenz auf die aktive PP-Folie liefert
Autor:   Stefan Stiber	Bewertung:     [ Jetzt bewerten ]	Views:  25.167
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 21 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Was VBA-Programmierer von anderen Office-Anwendungen wie Word und Excel her kennen, fehlt bei Powerpoint: die Referenz auf das aktive Dokument. Die folgende Funktion liefert eine Referenz auf die aktive PP-Folie und kann also als Slide-Objekt im Code angesprochen werden.

Function ActiveSlide() As Slide
  On Error GoTo ErrHandler
  Set ActiveSlide = ActivePresentation.Slides( _
    ActiveWindow.View.Slide.Name)
  Exit Function
 
ErrHandler:
  Set ActiveSlide = Nothing
End Function