Public SldX As Integer

Public Sld As Slide

​

Sub Select_Date()

​

    SldX = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex

    Set Sld = ActivePresentation.Slides(SldX)

End sub