当 SelectionType = ppSelectionNone 时，如何获取 Powerpoint 中可见幻灯片的 SlideIndex

我有一些代码需要我知道什么SlideIndex进行操作（例如，在哪里插入新幻灯片、在哪里插入 ChartObject 等）。大约99%的情况下，我都能成功获得SlideIndex by:

Dim w as Long 'slide index variable
w = ActivePresentation.Windows(1).Selection.SlideRange(1).SlideIndex

另外 0.1% 的时间，当ActivePresentation.Windows(1).SelectionType = ppSelectionNone，它会失败，因为（可以理解）它无法获得SlideIndex的选择，因为没有选择。如果用户无意中“选择”了“大纲”窗格中两张幻灯片之间的空间，则可能会发生这种情况。

理想情况下，我想做的是得到SlideIndex在“幻灯片”窗格中可见的幻灯片的属性：

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

我的临时解决方案是使用公共变量lastUsedSlide试图跟踪最近选择的幻灯片。我可以将其与WindowSelectionChange事件，但希望有一个更直接的解决方案。如果我认为这个方法可以always工作，我会使用它，但是，它可能会引入不可预见的错误，因为lastUsedSlide不是可靠的代理what_slide_i_am_currently_looking_at.

潜在的解决方法，在这里：

If ActiveWindow.Selection.Type = ppSelectionNone Then
  Select Case ActiveWindow.ViewType
    Case ppViewNormal
      ActiveWindow.ViewType = ppViewSlide
      ActiveWindow.ViewType = ppViewNormal
    Case ppViewSlideSorter
      ActiveWindow.ViewType = ppViewSlide
      ActiveWindow.ViewType = ppViewSlideSorter
    Case Else
      ' ?
  End Select
End If
' A slide should be selected now

从美学角度来说，我并不是特别关心它，但它似乎确实有效。唯一的问题是，通常如果选择在幻灯片之间，这会强制选择这两张幻灯片中的第一张，而我认为第二张幻灯片会更直观。我可以修改我的代码来解决这个问题，但它仍然不理想。