PowerPoint - 确定光标是在第一张幻灯片之前还是之后

Question

我需要确定 PowerPoint 幻灯片窗格中的光标位置，以便在正确的位置插入新幻灯片。

当选择幻灯片时，当前幻灯片编号为Application.ActiveWindow.View.Slide.SlideIndex。 当光标位于幻灯片之间时，切换到另一个视图然后返回（例如，切换到幻灯片视图，然后返回幻灯片排序器）会选择光标之前的幻灯片，然后上述方法将起作用。

问题出在一种情况下：当光标位于第一张幻灯片之前或之后时。在这两种情况下，来回切换视图都会将光标定位在第一张幻灯片上。

如何确定幻灯片窗格中的光标位置是在第一张幻灯片之前还是之后？

Answer 1

好问题。

一种丑陋的方法是使用 SendKeys 来喷射向下箭头键。如果光标位于第一张幻灯片上方，则会导致选择第一张幻灯片。如果光标位于第一张幻灯片和第二张幻灯片之间，则将选择第二张幻灯片。

稍微不那么难看的是使用 .Execute 方法来触发插入新幻灯片的正确控件，这应该模仿用户在执行相同操作时所得到的结果；如果插入的幻灯片的索引为 1，则光标位于原始第一张幻灯片的上方。如果插入的幻灯片的索引为 2，则光标最初位于幻灯片 1 和 2 之间。

或者使用 SendKeys ("^M") 来完成相同的操作（在 IDE 中不起作用，但在 PPT 中，您可以 Alt +F8 并选择宏来运行它。）

例如：如果光标位于第一张幻灯片上方，则显示 1；如果光标位于幻灯片 1 和 2 之间，则显示 2。DoEvnts 是必要的；否则，PPT 在下一行运行之前尚未创建幻灯片，并且会出错。

Sub thing()
    Dim lTemp As Long
    SendKeys ("^M")
    DoEvents
    lTemp = ActiveWindow.Selection.SlideRange(1).SlideIndex
    ActiveWindow.Selection.SlideRange.Delete
    MsgBox lTemp
End Sub

我怀疑您想要添加一些安全检查，以确保现有幻灯片（而不是您刚刚插入的幻灯片）不会被错误删除。

Answer 2

同意，SendKeys 不好，执行起来更安全，但仍然有点风险。

您可以迭代窗格集合并检查活动窗格的 ViewType，而无需更改活动窗格或用户的选择点。如果 ViewType = 11，则选择点位于缩略图窗格中（然后您需要执行“插入虚拟幻灯片”技巧来确定它在缩略图窗格中的确切位置）。

Sub OhThePane()
    Dim x As Long
    With ActiveWindow
        For x = 1 To .Panes.Count
            If .Panes(x).Active Then
                MsgBox "Pane: " & CStr(x) & vbCrLf & .Panes(x).ViewType
            End If
        Next
    End With
End Sub

注意：如果您从 PPT 中运行此程序，则必须使用 Alt+F8 来启动它。使用菜单栏/功能区选项卡会将焦点从用户选择的窗格移开，并为您提供虚假结果。