完全同意你的思路，宏确实是实现这个Kiosk场景下自动返回需求的最优方案！下面我给你一步步拆解实现方法，附上可直接用的VBA代码，还有一些关键注意事项：

第一步：启用PPT的开发工具选项卡 #

要编写宏，首先得打开开发工具面板：

• 点击PPT顶部的「文件」→「选项」
• 在弹出的窗口里选择「自定义功能区」
• 在右侧的主选项卡列表里勾选「开发工具」，点击确定即可

第二步：编写核心VBA代码 #

1. 点击开发工具选项卡中的「Visual Basic」按钮，打开VBA编辑器
2. 在左侧的项目窗口中，找到你的演示文稿，双击打开ThisPresentation模块
3. 把下面的代码粘贴进去：

' 全局变量：存储定时器触发时间，用于后续取消定时器
Dim timerID As Double

Private Sub Presentation_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    ' 先取消之前可能存在的定时器，避免误触发
    On Error Resume Next
    Application.OnTime EarliestTime:=timerID, Procedure:="GoToFirstSlide", Schedule:=False
    On Error GoTo 0
    
    ' 可自定义参数：
    Const targetSlideNum As Integer = 3  ' 需要自动返回的幻灯片编号
    Const staySeconds As Double = 10     ' 停留时长（单位：秒）
    
    ' 当切换到目标幻灯片时，启动定时器
    If Wn.View.Slide.SlideIndex = targetSlideNum Then
        timerID = Now + TimeValue("00:00:" & staySeconds)
        Application.OnTime EarliestTime:=timerID, Procedure:="GoToFirstSlide", Schedule:=True
    End If
End Sub

Sub GoToFirstSlide()
    ' 跳转到第一页幻灯片
    SlideShowWindows(1).View.GotoSlide 1
End Sub

代码说明： #

• Presentation_SlideShowNextSlide：这个事件会在每次切换幻灯片时自动触发，先取消之前的定时器（防止用户手动跳走后定时器还生效），然后判断当前是不是目标幻灯片，如果是就启动定时。
• GoToFirstSlide：定时结束后执行的宏，直接跳转到第一页。
• 你只需要修改targetSlideNum（目标幻灯片编号）和staySeconds（停留秒数）这两个常量就能适配你的需求。如果有多个需要自动返回的幻灯片，把判断条件改成If Wn.View.Slide.SlideIndex = 3 Or Wn.View.Slide.SlideIndex = 5 Then这样的多条件即可。

第三步：配置Kiosk模式运行 #

确保PPT在Kiosk模式下正常工作：

• 点击顶部「幻灯片放映」选项卡→「设置幻灯片放映」
• 在弹出的窗口中，选择「在展台浏览（全屏幕）」（这个模式专门针对Kiosk场景，会全屏运行且禁止退出，除非按Esc）
• 确认设置后，点击「从头开始」启动放映即可

关键注意事项 #

• 保存文件时，一定要选择「启用宏的演示文稿（.pptm）」格式，否则宏会被禁用。
• 测试时先在普通放映模式下验证定时器功能，再切换到Kiosk模式。
• 你的触摸导航图标（比如超链接形状/动作按钮）和这个宏完全兼容，点击图标跳转后，宏会自动取消之前的定时器，不会冲突。

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