Solo tienes que agregar al slide que quieres un TextBox, después modificar el codigo para que lo despliege en el textbox y listo, fijate el nombre o numero de tu slide para que no te salgan errores, yo hice la prueba en el slide 1, por qlo que dice: Slide1.Textbox1.Text
Código:
Sub Pick_Name()
'Must be a dynamic array ie no range
Dim MyNames() As String
Dim strName As String
Dim Ichosen As Integer
'load list into Array based on split by /
'note will start as MyNums(0) and finish with MyNums(number-1)
MyNames = Split("1/2/3/4/5/6/7/8/9/10/11/12/13/14/15/16/17/18/19/20/21/22/23/24/25/26/27/28/29/30", "/")
Do
Randomize
'This will work with any length of name sequence
Ichosen = Int(Rnd * (UBound(MyNames) + 1))
strName = (MyNames(Ichosen))
Slide1.TextBox1.Text = strName
'move top num,ber into chosen slot
MyNames(Ichosen) = MyNames(UBound(MyNames))
If UBound(MyNames) > 0 Then
'delete top number
ReDim Preserve MyNames(0 To UBound(MyNames) - 1)
Else
MsgBox "Bingo"
Exit Sub
End If
Loop Until MsgBox("Siguiente", vbYesNo) = vbNo
End Sub