Access/VBA Library

ActiveSlide Property

Returns reference to the Active slide of the active presentation. When no active slide is found Nothing is returned.

Syntax

ActiveSlide
Return value

Slide : The active Slide or Nothing.

PowerPointtag:PowerPoint
Example
  Function GetSlideIndex() As Long
      ' Return the current slide index
      Dim SlideIndex As Long
      If ActiveSlide Is Nothing Then
          SlideIndex = -1
      Else
          SlideIndex = ActiveSlide.SlideIndex
      End If
      GetSlideIndex = SlideIndex
  End Function