PowerPoint VBA技术问询：如何实现跳转至下一个todo-shape宏

嘿，我刚接触PowerPoint VBA，已经写了个用于添加“todo-shape”的宏，现在想开发一个能跳转到演示文稿中下一个todo-shape的宏。自己试着写了一段代码，但还没完成，恳请大佬指导怎么让它正常运行：

Sub TodoSelectNext() 
    Dim i As Integer 
    i = ActiveWindow.Selection.SlideRange.SlideIndex 
    Do While i < ActivePresentation.Slides.Count 
        ActivePresentation.Slides(ActiveWindow.Selection.SlideRange(1).SlideIndex + 1).Select 
        ActivePresentation.Slides(1).Shapes("todo")...

修正后的完整可运行代码 #

Sub TodoSelectNext()
    Dim currentSlideIndex As Integer
    Dim slideLoop As Slide
    Dim shapeLoop As Shape
    Dim foundNextTodo As Boolean
    
    ' 先判断当前选中的是否是幻灯片，避免选中其他元素时出错
    If ActiveWindow.Selection.Type = ppSelectionSlides Then
        currentSlideIndex = ActiveWindow.Selection.SlideRange(1).SlideIndex
    Else
        ' 如果当前选中的不是幻灯片，默认从当前显示的幻灯片开始找
        currentSlideIndex = ActiveWindow.View.Slide.SlideIndex
    End If
    
    ' 第一步：从当前幻灯片的下一页开始查找下一个todo
    For Each slideLoop In ActivePresentation.Slides
        If slideLoop.SlideIndex > currentSlideIndex Then
            ' 遍历当前幻灯片的所有形状
            For Each shapeLoop In slideLoop.Shapes
                If shapeLoop.Name = "todo" Then
                    ' 选中找到的todo形状，同时切换到对应幻灯片视图
                    slideLoop.Select
                    shapeLoop.Select
                    foundNextTodo = True
                    Exit Sub ' 找到目标后直接退出宏
                End If
            Next shapeLoop
        End If
    Next slideLoop
    
    ' 第二步：如果当前幻灯片之后没有找到，从第一张开始循环查找
    If Not foundNextTodo Then
        For Each slideLoop In ActivePresentation.Slides
            For Each shapeLoop In slideLoop.Shapes
                If shapeLoop.Name = "todo" Then
                    slideLoop.Select
                    shapeLoop.Select
                    Exit Sub
                End If
            Next shapeLoop
        Next slideLoop
    End If
    
    ' 最后：如果整个演示文稿都没有todo形状，提示用户
    MsgBox "演示文稿中没有找到名为'todo'的形状！"
End Sub

代码关键说明 #

• 容错处理：先判断当前选中的内容类型，如果不是幻灯片，就用当前视图的幻灯片索引作为起始点，避免报错
• 查找逻辑：优先从当前幻灯片的下一页开始找，符合“下一个”的直观需求；如果后面没有，就从第一张开始循环查找，实现循环遍历的效果
• 精准选中：找到todo形状时，先选中对应幻灯片再选中形状，确保视图跳转到正确位置
• 反馈提示：如果完全找不到todo形状，会弹出提示框告知用户

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