PowerPoint动画需求：实现姓名及详情的依次显示与切换

没问题，这个需求用纯动画就能轻松实现，不用写代码更省心；如果动画方案满足不了你的细节要求，我再给你补个VBA宏的方案。

方案一：纯动画实现（优先推荐） #

这是最直接的方法，完全用PowerPoint自带的动画功能就能完成：

• 准备元素：在第一张标题幻灯片的目标位置，插入两个文本框（分别放第一位、第二位人员的姓名+详情），再给第一位的文本框搭配上你的.bmp图片。用「格式」选项卡的「对齐」工具，把两个文本框和图片都精准对齐到同一位置（比如水平居中+垂直居中）。
• 初始状态设置：选中第二位的文本框，右键选择「设置形状格式」，把填充改成「无填充」、线条改成「无线条」（或者按Ctrl+F1打开「选择窗格」，点击第二位文本框旁的眼睛图标把它隐藏）。
• 给第一位元素加退出动画：按住Ctrl同时选中第一位的文本框和.bmp图片，在「动画」选项卡的「退出」组里选一个你喜欢的效果（比如「淡出」或「消失」）。
• 设置触发方式：打开「动画窗格」（右键动画→「动画窗格」），找到这个退出动画，右键→「计时」→把「开始」设为「单击时」——这样不管是点击鼠标还是按N键（PowerPoint放映时N键默认触发下一个动画），都会触发这个退出效果。
• 给第二位元素加进入动画：选中第二位的文本框，在「动画」选项卡的「进入」组选一个效果（比如「淡入」）。在动画窗格里把这个进入动画拖到第一位退出动画的后面，然后把它的「开始」设为「上一动画之后」——这样第一位的内容消失后，第二位的会自动在同一位置显示。

方案二：VBA宏实现（适合复杂自定义需求） #

如果动画法的灵活性不够，用VBA可以实现更个性化的控制：

1. 打开你的演示文稿，按Alt+F11打开VBA编辑器。
2. 在左侧的项目窗格里找到你的演示文稿，右键→「插入」→「模块」，粘贴下面的代码：

Sub TogglePersonInfo()
    Dim targetSlide As Slide
    Set targetSlide = ActivePresentation.Slides(1) '指定第一张幻灯片
    
    '注意：要提前在「选择窗格」（Ctrl+F1）里修改元素名称，和下面的对应
    Dim person1Txt As Shape, person2Txt As Shape, person1Pic As Shape
    Set person1Txt = targetSlide.Shapes("Person1_Text")
    Set person2Txt = targetSlide.Shapes("Person2_Text")
    Set person1Pic = targetSlide.Shapes("Person1_Pic")
    
    '初始状态确保第一个人显示，第二个人隐藏
    If person1Txt.Visible = msoFalse And person2Txt.Visible = msoFalse Then
        person1Txt.Visible = msoTrue
        person1Pic.Visible = msoTrue
        person2Txt.Visible = msoFalse
        Exit Sub
    End If
    
    '切换显示状态
    person1Txt.Visible = Not person1Txt.Visible
    person1Pic.Visible = Not person1Pic.Visible
    person2Txt.Visible = Not person2Txt.Visible
End Sub

3. 回到幻灯片，插入一个透明的矩形（放在不影响视觉的角落），右键它→「动作设置」→「单击鼠标」→勾选「运行宏」，选择刚才的TogglePersonInfo。
4. 如果想按N键触发宏，双击左侧项目窗格里的「Slide1」（第一张幻灯片的代码模块），粘贴下面的代码：

Private Sub SlideShowNextBuild(ByVal Wn As SlideShowWindow)
    '仅在第一张幻灯片时触发
    If Wn.View.Slide.SlideIndex = 1 Then
        TogglePersonInfo
    End If
End Sub

这样按N键或者点击透明矩形，都能触发内容的切换。

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