Random shapes to disappear after a delay in powerpoint - powerpoint

Question

I have a lot of squares that will hide a picture behind them.
I will repeat this process in many slides in a ppt, That's why I want it to be random.
I am new to macros and don't understand them that well.
Is there a way to make a random square disappear and then after 2 seconds, another random square disappears, and so on? Until I stop it or all squares have disappeared.
Thank you in advance.
I have this code that makes the square disappear when clicked that I got from google.
Sub triggerMe()
Dim osld As Slide
Dim oshp As Shape
Dim oeff As Effect
On Error Resume Next
Set oshp = ActiveWindow.Selection.ShapeRange(1)
If Not oshp Is Nothing Then
Set osld = oshp.Parent
Set oeff = osld.TimeLine.InteractiveSequences.Add.AddEffect(oshp, msoAnimEffectFade, , msoAnimTriggerOnShapeClick)
With oeff
.Timing.TriggerShape = oshp
.Exit = True
End With
End If
End Sub
This is a screenshot of the slide:
Here is the ppt link
https://docs.google.com/presentation/d/1SHJmcg4IaHsBaiqwJJZktXQQCjUKMq7a/edit?usp=sharing&ouid=107891975751630303148&rtpof=true&sd=true

Answer 1

So this block of code works. It was a lot more complicated than I thought.
Sub Dala()
currentslide = ActiveWindow.Selection.SlideRange.SlideIndex
Dim slideShapes As shapes
Dim slideShape As Shape
Dim osld As Slide
Dim oshp As Shape
Dim oeff As Effect
'Get shapes for the slide
Set slideShapes = ActivePresentation.Slides(currentslide).shapes
Dim MyListOfNumbers(0 To 500) As Integer
MyListOfNumbers(0) = 0
Dim r As Variant
Dim x As Integer
Dim exist As Boolean
Dim i As Integer
For Each slideShape In slideShapes
x = Random(slideShapes.Count)
'So that it does not double animate the same square again
For Each r In MyListOfNumbers
If r = x Then
exist = True
End If
Next r
'Animates and add it to the array
If exist = False Then
MyListOfNumbers(i) = x
Set oshp = slideShapes(x)
Set osld = oshp.Parent
On Error Resume Next
Set oshp = oshp
If Not oshp Is Nothing Then
Set osld = oshp.Parent
Set oeff = osld.TimeLine.MainSequence.AddEffect(oshp, msoAnimEffectFade, , msoAnimTriggerAfterPrevious)
With oeff
.Timing.TriggerDelayTime = 1
.Exit = True
End With
End If
i = i + 1
End If
exist = False
Next slideShape
End Sub
Function Random(High As Integer) As Integer
'Generates a random number less than or equal to
'the value passed in High
Randomize
Random = Int((High * Rnd) + 1)
End Function