vba - VBA for PowerPoint に IF 隠しステートメントはありますか?

Question

基本的にIFステートメントであるPowerPointでマクロを記述しようとしています。4 つのボックスがあり、クリックするとフェードアウトするアニメーションがあります。4 つのボックスがすべてなくなったことを認識し、5 つ目のボックスでフェードインするマクロを作成することは可能ですか?

したがって、ユーザーのコントロールで 4 つのボックスが消え、それらがすべてなくなると、5 つ目のボックスが自動的に表示されます。これは可能ですか？

Answer 1

vba は必要ありません。5 番目のアニメーションに好きなアニメーションを付けてから、After Previous に設定します。必要に応じて遅延を追加します。前の (つまり、4 番目の形状) が消えた後にアニメーション化されます。

Answer 2

Ah. Thanks for clarifying.

Here you go:

' Give each of the four shapes an action setting of Run Macro:  HideMe

Sub HideMe(oSh As Shape)
    Dim oSl As Slide

    ' hide the clicked shape
    oSh.Visible = False

    ' test to see if all four shapes are hidden now
    ' edit to reflect the actual names of the shapes in use

    Set oSl = oSh.Parent    ' the slide containing the clicked shape
    With oSl
        If Not .Shapes("Rectangle 3").Visible Then
            If Not .Shapes("Rectangle 4").Visible Then
                If Not .Shapes("Rectangle 5").Visible Then
                    If Not .Shapes("Rectangle 6").Visible Then
                        ' they're all hidden, so make the new shape visible
                        .Shapes("Rectangle 7").Visible = True
                    End If
                End If

            End If
        End If
    End With

End Sub

Sub MakeMeInvisible()
' run this after selecting the final shape
' to make it invisible to begin with
    ActiveWindow.Selection.ShapeRange(1).Visible = False
End Sub