パワポにはアクティブなスライドを取得するプロパティがない。

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

いまのところ問題なく利用できている。