Memperoleh Slide Aktif - PowerPoint Macro

Dim SlideAktif  as Slide

Set SlideAktif = Application.ActiveWindow.View.Slide

Referensi:
https://support.microsoft.com/en-us/