I have some code that requires me to know what SlideIndex to operate on (e.g., where to insert a new slide, where to insert a ChartObject, etc.). About 99% of the time, I can successfully obtain the SlideIndex by:
Dim w as Long 'slide index variable
w = ActivePresentation.Windows(1).Selection.SlideRange(1).SlideIndex
The other 0.1% of the time, when ActivePresentation.Windows(1).SelectionType = ppSelectionNone, it will fail, because (understandably) it can't obtain the SlideIndex of the selection, because there is no selection. This might occur if the user has inadvertently "selected" the space between two slides in the Outline pane.
What I would like to do, ideally, is get the SlideIndex property of the slide which is visible in the Slides pane:
I currently have some code that tests whether the SelectionType is ppSelectionNone, so I can trap the condition, I just have not figured a way to identify the slideIndex of the Slides Pane.
Function GetMySlide()
Dim w as Long
If Not ActivePresentation.Windows(1).Selection.Type = ppSelectionNone Then
w = ActivePresentation.Windows(1).Selection.SlideRange(1).SlideIndex
Set GetMySlide = ActivePresentation.Slides(w)
Else:
MsgBox "No slide is currently selected. Please select a slide in the Outline pane in order to proceed.", vbInformation
Set GetMySlide = Nothing
Exit Function
End If
End Function
Update
My interim solution is to use a public variable lastUsedSlide in an attempt to keep track of the most recently selected Slide. I can incorporate this with the WindowSelectionChange event, but was hoping there would be a more straightforward solution. If I thought this method would always work, I would use it, however, it potentially introduces unforeseen errors, since the lastUsedSlide is not a reliable proxy for what_slide_i_am_currently_looking_at.
