パワポにはアクティブなスライドを取得するプロパティがない。
ExcelでいうActiveSheet、ActiveWorkbookみたいなのがあると楽なのですが、パワポにはありません。
ActivePresentationというプロパティはあるので、そこから自作関数を作成。
Public Function ActiveSlide() As Slide
Dim silideAt As Slide
Set ActiveSlide = ActivePresentation.Slides.FindBySlideID(ActivePresentation.Windows(1).Selection.SlideRange.SlideID)
End Function
いまのところ問題なく利用できている。