PowerPoint VBA运行报错：整数超出范围1不在1-0有效区间

错误原因 #

报错运行时错误'-2147188160 (800248240)'的核心是：当前没有正在运行的幻灯片放映窗口，SlideShowWindows集合的元素数量为0，此时访问SlideShowWindows(1)必然触发“整数超出范围”的错误。

你提到重命名幻灯片后代码失效，本质不是重命名操作直接导致的，而是重命名后之前的放映状态可能被中断，代码又在非放映视图（比如普通视图、大纲视图）下执行了。

解决方案 #

1. 确保代码在放映视图下执行 #

如果是通过宏按钮触发代码，要把按钮添加到幻灯片页面上，在幻灯片放映过程中点击按钮执行，而非在普通视图下点击按钮。

2. 增加安全判断逻辑 #

在代码中先检查是否存在活动的放映窗口，避免直接访问不存在的索引：

Dim lCurrentSlide As Long
' 先判断是否有正在运行的幻灯片放映窗口
If SlideShowWindows.Count > 0 Then
    lCurrentSlide = SlideShowWindows(1).View.Slide.SlideNumber
    ' 此处可添加后续逻辑，比如输出或使用lCurrentSlide变量
    Debug.Print "当前放映幻灯片编号：" & lCurrentSlide
Else
    ' 提示用户当前没有放映窗口
    MsgBox "请先启动幻灯片放映！"
End If

3. 排查代码触发时机 #

如果代码绑定到幻灯片事件（比如SlideShowBegin），检查事件绑定是否在重命名后失效，可重新绑定事件确保触发逻辑正确。

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