VB PowerPoint，单击其他几个时显示图片

Question

我今天学习了一些 VBA 基础知识以应用于 powerpoint，但我在其他一些语言方面有一些经验。正如标题所说，我希望在此之前单击其他 3 张图片后显示一张图片。当这 3 张图片中的任何一张被点击时，它们都会触发一个勾号显示在该图片上方，我将它们用作引用代码我的宏。我有以下内容：

Sub Condicion()

    Set Diapo14 = ActivePresentation.Slides(14)
    If Diapo14.Shapes("tick1").Visible = True And _
       Diapo14.Shapes("tick2").Visible = True And _
       Diapo14.Shapes("tick3").Visible = True Then

        Diapo14.Shapes("FlechaDer").Visible = True

    End If
End Sub

我想要在幻灯片开始时显示消失效果的图片 (FlechaDer)，但无论我做什么，当我测试幻灯片时，图片总是在那里。也许我没有采用正确的方法，希望有人能帮助我。我什至不确定这是否可以在 PowerPoint 中完成。

Answer 1

我用下面的代码让它工作。我不得不替换 If 循环中的“刻度”，而不是它们，我使用了点击后弹出刻度的图片：

Sub Can12()
    Set Diapo12 = ActivePresentation.Slides(12)
    Diapo12.Shapes("Can").Visible = False
    If Diapo12.Shapes("Can").Visible = False And Diapo12.Shapes("Wool").Visible = False And Diapo12.Shapes("Pencil").Visible = False Then
        Diapo12.Shapes("FlechaDer").Visible = True
    End If
End Sub

Sub Wool12()
    Set Diapo12 = ActivePresentation.Slides(12)
    Diapo12.Shapes("Wool").Visible = False
    If Diapo12.Shapes("Can").Visible = False And Diapo12.Shapes("Wool").Visible = False And Diapo12.Shapes("Pencil").Visible = False Then
        Diapo12.Shapes("FlechaDer").Visible = True
    End If
End Sub

Sub Pencil12()
    Set Diapo12 = ActivePresentation.Slides(12)
    Diapo12.Shapes("Pencil").Visible = False
    If Diapo12.Shapes("Can").Visible = False And Diapo12.Shapes("Wool").Visible = False And Diapo12.Shapes("Pencil").Visible = False Then
        Diapo12.Shapes("FlechaDer").Visible = True
    End If
End Sub

单击所有 3 个项目时，激活动画（右箭头弹出）效果很好。我不得不在图片中添加相应的宏。（罐头、羊毛和铅笔）

VB PowerPoint，单击其他几个时显示图片

VB PowerPoint, showing a picture when several others are clicked

vba

animation

triggers

powerpoint

effects