如何在PowerPoint中添加带节标题的动态进度指示器？

实现思路 #

依托PowerPoint的**节（Section）**功能定义章节，通过VBA动态生成带所有节标题的进度导航栏，自动高亮当前幻灯片所属章节，幻灯片切换时实时更新，完美复刻LaTeX/beamer的章节进度指示效果。

步骤1：整理演示文稿的节结构 #

先给演示文稿按章节划分节：

• 右键点击幻灯片缩略图 → 新增节，为每个节命名（对应章节标题）
• 确保所有幻灯片都归属于对应节下

步骤2：VBA代码实现 #

1. 打开VBA编辑器：按下Alt + F11
2. 插入模块：右键左侧项目树 → 插入 → 模块
3. 粘贴以下代码：

' 生成/更新章节进度指示器
Sub UpdateSectionProgress()
    Dim sld As Slide
    Dim sec As Section
    Dim shp As Shape
    Dim navBar As Shape
    Dim xPos As Single, yPos As Single, width As Single, height As Single
    Dim idx As Integer, currentSecIdx As Integer
    
    ' 导航栏位置与尺寸：可按需调整（单位：磅）
    xPos = 50
    yPos = 20
    width = 600
    height = 20
    
    ' 删除旧导航栏（避免重复生成）
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.Name = "SectionProgressBar" Then
                shp.Delete
            End If
        Next shp
    Next sld
    
    ' 获取当前幻灯片所属节的索引
    currentSecIdx = ActiveWindow.View.Slide.SectionIndex
    
    ' 遍历所有幻灯片，添加导航栏
    For Each sld In ActivePresentation.Slides
        ' 创建导航栏文本框
        Set navBar = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, xPos, yPos, width, height)
        navBar.Name = "SectionProgressBar"
        navBar.TextFrame.TextRange.Font.Size = 10
        navBar.TextFrame.TextRange.Font.Name = "Arial"
        navBar.TextFrame.WordWrap = msoFalse
        navBar.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
        
        ' 构建导航文本：所有节标题，当前节高亮
        idx = 1
        For Each sec In ActivePresentation.Sections
            If idx = currentSecIdx Then
                ' 当前节：加粗+红色高亮
                navBar.TextFrame.TextRange.InsertAfter "*" & sec.Name & "* "
                navBar.TextFrame.TextRange.Characters(navBar.TextFrame.TextRange.Length - Len(sec.Name) - 1, Len(sec.Name) + 2).Font.Bold = msoTrue
                navBar.TextFrame.TextRange.Characters(navBar.TextFrame.TextRange.Length - Len(sec.Name) - 1, Len(sec.Name) + 2).Font.Color.RGB = RGB(255, 0, 0)
            Else
                ' 其他节：正常样式
                navBar.TextFrame.TextRange.InsertAfter sec.Name & " "
            End If
            idx = idx + 1
        Next sec
    Next sld
End Sub

' 幻灯片切换时自动更新进度
Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
    UpdateSectionProgress
End Sub

4. 绑定幻灯片切换事件：

• 在VBA编辑器左侧，双击ThisPresentation
• 在右侧下拉菜单选择SlideShow，再选择SlideShowNextSlide
• 粘贴代码：UpdateSectionProgress

使用说明 #

• 调整节结构（新增/删除/重命名节）后，手动运行UpdateSectionProgress宏即可同步更新所有导航栏
• 幻灯片放映时，切换页面会自动更新导航栏的高亮状态

Google Slides无代码方案 #

利用母版变体实现近似效果：

1. 打开幻灯片母版：点击视图 → 幻灯片母版
2. 在母版的顶部/底部区域添加文本框，输入所有章节标题（用空格分隔）
3. 为当前章节标题设置高亮样式（如加粗、红色）
4. 复制该母版，为每个章节创建一个母版变体，修改对应章节的高亮状态
5. 将对应章节的幻灯片应用到对应的母版变体
6. 修改章节时，直接更新母版中的标题即可同步所有幻灯片

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