PowerPoint宏变量值保留问题：批量编辑切换图片失败求助

需求 #

在幻灯片中批量编辑/裁剪图片，实现编辑完当前显示的单张图片后，运行宏隐藏当前图片并显示下一张。所有图片已命名为“Photo 1”“Photo 2”……格式。

问题 #

编写的宏首次运行正常，但从第二张图片开始失效，原代码如下：

Dim oSl As Slide
Dim oSh As Shape
Dim n As Long
 
With ActiveWindow.Selection.ShapeRange
    n = n + 1
    If ActiveWindow.Selection.ShapeRange.Name = "Photo " & n Then

        ActiveWindow.Selection.SlideRange.Shapes("Photo " & n + 1).Visible = msoCTrue
        ActiveWindow.Selection.ShapeRange.Visible = msoFalse

    End If
End With

问题根源 #

原代码中n = n + 1的逻辑错误：每次运行宏时，局部变量n会重置为0，累加后得到1，只能匹配“Photo 1”；后续运行时n依然重置为0，无法匹配“Photo 2”及之后的图片。正确逻辑应为从选中图片的名称中提取数字作为n的值，而非每次重置累加。

尝试过的无效方案 #

• 使用形状索引：索引不稳定且无法可靠获取对应图片
• 添加Else n = n + 1条件：尝试循环时导致电脑崩溃

修复后的宏代码 #

Sub ShowNextPhoto()
    Dim selectedShape As Shape
    Dim currentNum As Long
    Dim nextShapeName As String
    
    ' 校验是否选中了形状
    If ActiveWindow.Selection.Type <> ppSelectionShapes Then
        MsgBox "请先选中一张Photo系列图片！"
        Exit Sub
    End If
    
    Set selectedShape = ActiveWindow.Selection.ShapeRange(1)
    
    ' 提取图片名称中的数字
    If Left(selectedShape.Name, 6) = "Photo " Then
        currentNum = CLng(Mid(selectedShape.Name, 7))
        
        ' 隐藏当前图片
        selectedShape.Visible = msoFalse
        
        ' 显示下一张图片，处理不存在的情况
        nextShapeName = "Photo " & currentNum + 1
        On Error Resume Next
        ActiveWindow.Selection.SlideRange.Shapes(nextShapeName).Visible = msoCTrue
        On Error GoTo 0
    Else
        MsgBox "选中的不是Photo系列图片！"
    End If
End Sub

修复说明 #

1. 提取名称中的数字：通过Mid(selectedShape.Name, 7)截取“Photo ”后的数字部分，转换为长整型作为当前图片序号，彻底避免变量重置问题
2. 增加校验逻辑：先判断是否选中形状、选中的是否为Photo系列图片，减少误操作导致的报错
3. 错误处理：用On Error Resume Next处理下一张图片不存在的场景，防止宏因找不到图片而中断

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