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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.