Powerpoint Random Slide, но остановка с задержкой 4 слайда

Question

Я пытаюсь создать слайд PowerPoint со случайным выбором, используя VBA. Мне удается это сделать, но он показывает результат для следующего выбора. Есть ли способ остановиться после задержки 4 слайдов? Что-то вроде «счастливого розыгрыша», когда результатом является медленная остановка?

Это мой код:

Sub randjump()
  Randomize
  Dim Inum As Integer
  Inum = Int(7 * Rnd + 4)
  ActivePresentation.SlideShowWindow.View.GotoSlide (Inum)
End Sub

Я также пытался использовать другой код, но у меня проблемы со списком имен,Я не уверен, как я могу сделать массив данных из списка?

Я пытаюсь показать результат в PowerPoint Shape вместо MsgBox, но не уверен, что это также может вызвать эффект случайного имени и медленно остановиться ...

Sub From_Hat()
'Declare the collection
Dim myHat As New Collection
Dim names() As String
Dim x As Long
Dim iChoice As Integer

names = Split("Bob\Mary\Joe\John", "\")

For x = 0 To UBound(names)
myHat.Add (names(x))
Next x

Do
Randomize
'choose a random name
iChoice = Int(Rnd * myHat.Count) + 1
MsgBox myHat(iChoice)
'remove that choice
myHat.Remove (iChoice)
Loop Until myHat.Count = 0
MsgBox "All chosen"
End Sub

'load into the new collection
For x = 1 To 99
myHat.Add (x)
Next x


End Sub