如何用VBA根据当前演示幻灯片返回对应幻灯片2的超链接数值？

核心逻辑 #

• 监听幻灯片放映的SlideShowNextSlide事件，每次切换幻灯片时触发检查
• 遍历第2张幻灯片表格的所有单元格，提取每个单元格超链接指向的目标幻灯片编号
• 匹配当前放映的幻灯片编号，返回对应单元格的数值

VBA代码实现 #

将以下代码粘贴到PPT的ThisPresentation模块中（打开VBA编辑器，左侧导航栏双击ThisPresentation进入）：

' 声明事件变量，需放在模块最顶部
Private WithEvents app As Application

Private Sub app_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    Dim currentSlideIdx As Integer
    Dim targetTable As Table
    Dim rowIdx As Integer, colIdx As Integer
    Dim linkTargetSlide As Integer
    Dim resultValue As String
    
    ' 获取当前正在放映的幻灯片编号
    currentSlideIdx = Wn.View.Slide.SlideIndex
    
    ' 定位第2张幻灯片中的表格（假设表格是该幻灯片的第1个形状，可按需修改Shapes索引）
    Set targetTable = ThisPresentation.Slides(2).Shapes(1).Table
    
    ' 遍历表格所有单元格
    For rowIdx = 1 To targetTable.Rows.Count
        For colIdx = 1 To targetTable.Columns.Count
            With targetTable.Cell(rowIdx, colIdx).Shape.TextFrame.TextRange
                ' 检查单元格是否包含超链接
                If .Hyperlinks.Count > 0 Then
                    ' 提取超链接指向的幻灯片编号
                    linkTargetSlide = .Hyperlinks(1).SlideIndex
                    
                    ' 匹配当前幻灯片，找到后返回数值
                    If linkTargetSlide = currentSlideIdx Then
                        resultValue = .Text
                        ' 此处可根据需求调整输出方式，比如写入文本框、存入变量等
                        MsgBox "对应数值：" & resultValue
                        Exit Sub ' 找到匹配项后退出循环，提升效率
                    End If
                End If
            End With
        Next colIdx
    Next rowIdx
    
    ' 未找到匹配时的提示
    MsgBox "当前幻灯片无对应关联数值"
End Sub

Private Sub Presentation_Open()
    ' 初始化事件监听，打开PPT时自动生效
    Set app = Application
End Sub

使用注意事项 #

• 确保第2张幻灯片的表格是该幻灯片的第1个形状（若表格是第N个形状，修改Shapes(1)为Shapes(N)）
• 保存演示文稿为启用宏的PPT格式（.pptm），否则宏无法运行
• 测试时需启动幻灯片放映，切换到第4/5/6张幻灯片时会自动弹出对应数值，其他幻灯片则提示无关联数值

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