一、不用VBA的原生动画方案 #

直接通过PPT自带的动画设置就能实现，不用写代码：

• 对每个要放大的图片，按以下步骤配置：
  1. 放大+移动并置顶层：
     选中图片，添加「放大/缩小」动画（设好目标缩放比例）和「移动」动画（终点选屏幕中心），把这两个动画组合成同时开始。右键组合后的动画→「效果选项」→「动画」标签，在「动画后」下拉选「置于顶层」，这样动画播放时图片自动跑到最前面。
  2. 恢复尺寸位置并回原层级：
     添加「放大/缩小（100%）」和「移动（回原位置）」动画，同样组合为同时开始，设置为上一动画之后开始。右键恢复动画→「效果选项」→「动画」标签，「动画后」选「置于底层」；如果图片原本在中间层级，可提前记好它的初始Z顺序，再添加「设置形状格式」动画调整Z顺序到原位置。

二、VBA优化方案（解决你代码的问题） #

你之前的代码踩了两个坑：

1. 直接修改ActivePresentation.Slides(1).Shapes是操作编辑状态的幻灯片，会触发动画重置；得操作放映视图里的形状对象。
2. 自定义的Wait循环会卡死PPT的动画渲染线程，导致看不到过渡效果；改用Application.Wait更稳妥。

修改后的可用代码：

Sub ZoomImageWithZOrder()
    Dim ssv As SlideShowView
    Dim targetShape As Shape
    Dim originalZOrder As Integer
    
    ' 获取当前放映窗口的视图
    Set ssv = SlideShowWindows(1).View
    ' 定位目标图片，替换成你的图片名称
    Set targetShape = ssv.Slide.Shapes("Picture 5")
    
    ' 记录图片原来的层级位置
    originalZOrder = targetShape.ZOrderPosition
    
    ' 播放入场动画（对应你原来的GotoClick 1）
    ssv.GotoClick 1
    ' 等入场动画跑完，时长根据你实际动画调整，这里是2秒
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 把图片放到顶层，操作放映中的形状不会重置动画
    targetShape.ZOrder msoBringToFront
    ' 播放放大到中心的动画（对应你原来的GotoClick 2）
    ssv.GotoClick 2
    ' 停留几秒让观众查看，这里设3秒
    Application.Wait Now + TimeValue("00:00:03")
    
    ' 播放恢复原位置和尺寸的动画（需提前添加这个动画，对应GotoClick 3）
    ssv.GotoClick 3
    ' 等恢复动画完成
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 把图片放回原来的层级
    Do While targetShape.ZOrderPosition > originalZOrder
        targetShape.ZOrder msoSendBackward
    Loop
End Sub

关键改进说明： #

• 用ssv.Slide.Shapes操作正在放映的幻灯片形状，完全不会影响编辑状态的动画设置，避免重置问题。
• Application.Wait会给PPT留出渲染动画的资源，过渡效果就能正常显示。
• 记录原始ZOrder位置，循环调整回去，确保图片精准回到原来的层级。

内容的提问来源于stack exchange，提问作者Xi-entaj