PowerPoint VBA宏：如何区分默认选中与用户主动选中的幻灯片？

要区分用户主动在缩略图窗格选中幻灯片和默认活动幻灯片的情况，可以通过检查Selection.Type属性实现：

• 当用户特意在缩略图窗格点击选中幻灯片时，ActiveWindow.Selection.Type会返回ppSelectionSlides（值为1）；
• 若只是默认的活动幻灯片（未在缩略图窗格主动选中），Selection.Type通常为其他值（比如编辑区选中形状时为ppSelectionShapes，无选中对象时为ppSelectionNone）。

同时需处理用户在缩略图窗格点击空白处（无选中幻灯片）的场景，避免代码报错。

修改后的宏代码如下：

Sub DeleteSelectedSlides()
    Dim selectedSlides As SlideRange
    
    ' 捕获无选中幻灯片的情况（点击缩略图空白处）
    On Error Resume Next
    Set selectedSlides = ActiveWindow.Selection.SlideRange
    On Error GoTo 0
    
    ' 判断是否存在选中的幻灯片，且是用户主动在缩略图选中的
    If Not selectedSlides Is Nothing Then
        If ActiveWindow.Selection.Type = ppSelectionSlides Then
            selectedSlides.Delete
        Else
            MsgBox "未主动选中任何幻灯片，无法执行删除操作！", vbExclamation, "提示"
        End If
    Else
        MsgBox "未选中任何幻灯片，无法执行删除操作！", vbExclamation, "提示"
    End If
End Sub

代码说明 #

• 错误捕获部分：处理用户点击缩略图空白处导致SlideRange不存在的情况；
• Selection.Type = ppSelectionSlides：确保操作对象是用户主动在缩略图窗格选中的幻灯片，而非默认活动幻灯片；
• 两种警告场景：分别对应“无选中幻灯片”和“仅默认活动幻灯片未主动选中”的情况。

内容的提问来源于stack exchange，提问作者Jerry V