PowerPoint主幻灯片导航按钮显示逻辑VBA代码故障求助

1. 先修正ModSlide20模块的低级代码错误 #

模块内Fries_Click、Soda_Click等子程序存在Debug.Print引用错误（比如Fries的点击事件错误引用Burger的访问状态），直接修正索引对应关系：

' 修正前错误代码（Fries_Click）
Sub Fries_Click()
    Debug.Print "Burger visited: " & visited20(1) ' 错误：引用了Burger的索引
    SlideShowWindows(1).View.GotoSlide 22
End Sub

' 修正后代码
Sub Fries_Click()
    Debug.Print "Fries visited: " & visited20(2) ' 改为对应Fries的索引2
    SlideShowWindows(1).View.GotoSlide 22
End Sub

同理修正其他点击事件：

• Burger_Click → 对应索引1，Debug.Print访问visited20(1)
• Soda_Click → 对应索引3，Debug.Print访问visited20(3)
• Salad_Click → 对应索引4，Debug.Print访问visited20(4)

2. 解决visited20数组被意外重置的问题 #

全局布尔数组容易在幻灯片切换、事件触发时被重置，改用幻灯片Tag存储访问状态更可靠：

替换全局数组为Tag读写函数 #

删除全局模块的Public visited20(1 To 4) As Boolean声明，改用以下函数：

' 获取Slide20子幻灯片的访问状态
Function GetVisited20(index As Integer) As Boolean
    GetVisited20 = CBool(SlideShowWindows(1).Presentation.Slides(20).Tags("Visited" & index))
End Function

' 设置Slide20子幻灯片的访问状态
Sub SetVisited20(index As Integer, value As Boolean)
    SlideShowWindows(1).Presentation.Slides(20).Tags("Visited" & index) = CStr(value)
End Sub

初始化状态 #

在Auto_Open事件中初始化Slide20的Tag，并默认隐藏导航按钮：

Sub Auto_Open()
    With ActivePresentation.Slides(20)
        .Tags("Visited1") = "False"
        .Tags("Visited2") = "False"
        .Tags("Visited3") = "False"
        .Tags("Visited4") = "False"
        .Shapes("导航按钮名称").Visible = msoFalse ' 替换为实际按钮名称
    End With
    ' 另外两组幻灯片的初始化逻辑（复制上述代码，替换Slide编号和按钮名称）
End Sub

3. 修正SlideShowNextSlide事件的追踪逻辑 #

确保类模块的事件能正确标记每个子幻灯片的访问状态：

' 类模块（如clsSlideTracker）的SlideShowNextSlide事件
Private Sub SldShow_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    Dim slideIndex As Integer
    slideIndex = Wn.View.Slide.SlideIndex
    
    Select Case slideIndex
        ' 标记Slide20子幻灯片的访问状态
        Case 21: SetVisited20 1, True
        Case 22: SetVisited20 2, True
        Case 23: SetVisited20 3, True
        Case 24: SetVisited20 4, True
        ' 返回Slide20时检查是否全部访问
        Case 20: CheckAllVisited20
        ' 标记从Slide19返回时需要重置状态
        Case 19: ActivePresentation.Slides(19).Tags("NeedReset20") = "True"
        ' 另外两组幻灯片的追踪逻辑（复制上述Case结构，替换Slide编号）
    End Select
End Sub

4. 实现访问计数重置与导航按钮显示逻辑 #

编写检查函数，处理重置和按钮显示逻辑：

Sub CheckAllVisited20()
    Dim resetFlag As Boolean
    resetFlag = CBool(ActivePresentation.Slides(19).Tags("NeedReset20"))
    
    ' 从Slide19返回时重置状态
    If resetFlag Then
        SetVisited20 1, False
        SetVisited20 2, False
        SetVisited20 3, False
        SetVisited20 4, False
        ActivePresentation.Slides(19).Tags("NeedReset20") = "False"
        ActivePresentation.Slides(20).Shapes("导航按钮名称").Visible = msoFalse
        Exit Sub
    End If
    
    ' 检查是否全部子幻灯片已访问
    Dim allVisited As Boolean
    allVisited = GetVisited20(1) And GetVisited20(2) And GetVisited20(3) And GetVisited20(4)
    
    ' 显示/隐藏导航按钮
    ActivePresentation.Slides(20).Shapes("导航按钮名称").Visible = IIf(allVisited, msoTrue, msoFalse)
End Sub

5. 修复ReturnToMain20宏 #

确保返回主幻灯片时触发检查逻辑：

Sub ReturnToMain20()
    SlideShowWindows(1).View.GotoSlide 20
    CheckAllVisited20
End Sub

6. 复用逻辑到另外两组幻灯片 #

将上述代码封装为通用函数，避免重复编写：

' 通用获取访问状态函数
Function GetVisited(mainSlideNum As Integer, index As Integer) As Boolean
    GetVisited = CBool(SlideShowWindows(1).Presentation.Slides(mainSlideNum).Tags("Visited" & index))
End Function

' 通用设置访问状态函数
Sub SetVisited(mainSlideNum As Integer, index As Integer, value As Boolean)
    SlideShowWindows(1).Presentation.Slides(mainSlideNum).Tags("Visited" & index) = CStr(value)
End Sub

' 通用检查全部访问函数
Sub CheckAllVisited(mainSlideNum As Integer, resetSlideNum As Integer, buttonName As String, subSlideCount As Integer)
    Dim resetFlag As Boolean
    resetFlag = CBool(ActivePresentation.Slides(resetSlideNum).Tags("NeedReset" & mainSlideNum))
    
    If resetFlag Then
        Dim i As Integer
        For i = 1 To subSlideCount
            SetVisited mainSlideNum, i, False
        Next i
        ActivePresentation.Slides(resetSlideNum).Tags("NeedReset" & mainSlideNum) = "False"
        ActivePresentation.Slides(mainSlideNum).Shapes(buttonName).Visible = msoFalse
        Exit Sub
    End If
    
    Dim allVisited As Boolean
    allVisited = True
    For i = 1 To subSlideCount
        If Not GetVisited(mainSlideNum, i) Then
            allVisited = False
            Exit For
        End If
    Next i
    
    ActivePresentation.Slides(mainSlideNum).Shapes(buttonName).Visible = IIf(allVisited, msoTrue, msoFalse)
End Sub

在类模块事件中调用通用函数即可实现其他组幻灯片的逻辑，例如第二组主幻灯片Slide30、子Slide31-34、从Slide29返回重置：

Case 31: SetVisited 30, 1, True
Case 32: SetVisited 30, 2, True
Case 33: SetVisited 30, 3, True
Case 34: SetVisited 30, 4, True
Case 30: CheckAllVisited 30, 29, "导航按钮2", 4
Case 29: ActivePresentation.Slides(29).Tags("NeedReset30") = "True"

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