numeros aleatorios en power point

[domadia78]

estimados:
estoy tratando de hacer un bingo en power point pero no logro hacer que en vez de sacar los numeros a traves de un MsgBox me salgan en un cuadro de texto dentro del mismo power point, ya que necesito ir modificando el power point mientras salen los numeros. espero me entiendan y me puedan ayudar, estoy muy complicada con esto. gracias
aqui va el codigo que estoy utilizando:



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))
MsgBox 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

[Monimo]

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

[domadia78]

Monimo, gracias por tu ayuda, la verdad es que conosco muy poco del codigo de vb en power point. espero puedas seguir ayudandome, lo ultimo que necesito es que el loop se realize mientras yo siga presionando ya sea un CommandButton1 que este dentro de la presentacion o en su defecto una forma.

Loop Until MsgBox("Siguiente", vbYesNo) = vbNo


muchas gracias de antemano

[Monimo]

Iniciado por domadia78

Monimo, gracias por tu ayuda, la verdad es que conosco muy poco del codigo de vb en power point. espero puedas seguir ayudandome, lo ultimo que necesito es que el loop se realize mientras yo siga presionando ya sea un CommandButton1 que este dentro de la presentacion o en su defecto una forma.

Loop Until MsgBox("Siguiente", vbYesNo) = vbNo


muchas gracias de antemano

Mmm creo que no entendí tu requerimiento, el loop en efecto sigue realizandose mientras presionas el "Sí" del botón. Cuando presionas "No"...ya no se repite;

Bueno lo que yo hice fue agregar un botón y ver el codigo con click derecho y ahí puse esto:


Private Sub CommandButton1_Click()
Pick_Name
End Sub


de esta forma cuando yo presiono el botón comienza el loop.... espero te funcione...

[domadia78]

esta bien lo que tu dices, pero como voy cambiando los numeros a traves de esta MsgBox("Siguiente", vbYesNo) = vbNo, la diapositiva en donde se ve el numero me queda bloqueada y yo necesito que esta activa pues debo ir haciendo otros cambios a medida que voy mostrando los numeros. espero me haya explicado bien. es por eso que necesito un boton en el diapositiva para que me vaya mostrando los numero y no en el MsgBox


gracias

[domadia78]

Loop Until MsgBox("Siguiente", vbYesNo) = vbNo
que el si que sea una forma o boton en la diapositiva y el no sea otra forma o boton que vaya inserta en la diapositiva.


porfa muchas pero muchas gracias. no sabes como me he estado dando vueltas en esto y no se como resolverlo.

[Monimo]

Podrías explicarme estas líneas??


If UBound(MyNames) > 0 Then
'delete top number
ReDim Preserve MyNames(0 To UBound(MyNames) - 1)
Else

MsgBox "Bingo"
Exit Sub

es decir, cual es mi condición para decir: "bingo"

[domadia78]

la condicion para decir bingo es que no queden mas numeros por listar, es decir que hayan salido todos los numeros, pues se va eliminando el numero que ya salio.

[domadia78]

el boton ejecutar macro no tengo problema, se como se hace, pero el otro es el que me falta. pues debo ir marcando realizando otras acciones en la diapositiva pero como el cuadro de mensaje se pone encima, no puedo ir haciend nada mas en la diapositiva. espero haberme explicado bien

[Monimo]

Lo que se me ocurre es tener dos arreglos, el que ya tienes donde se eligen los numeros al azar, poniendo como condición de parada un numero, que sería la cantidad total de numeros que se pueden elegir, y otro donde se vayan guardando uno por uno los numero elegidos, respetando el orden de azar, el botón de siguiente lo que hará, será ir recorriendo ese segundo arreglo con las posiciones conocidas, creo que así sería mas fácil no? Es decir pones un contador publico, una variable publica que se inicie en 1, cada que aprietes siguiente, y dentro de ese mismo pones la variable y le sumas cada que aprietes el botón, cuando la suma llegue al limite de numeros, que se reseteé automaticamente. y con la suma se va sumando la posicion leída del segundo arreglo... Creo que eso funcionaria

[domadia78]

gracias por tu ayuda, tratare de hacerlo, pero la verdad se me complica cada vez mas. me sigo dando vueltas en eso. la verdadno se mucho de vb entonces eso se me complica si tu sabes de un sitio en donde pueda sacar el codigo que se ocupa para ir estudiandolo te lo agradeceria he buscado pero solo encuentro ejemplos pero no un manual en donde salga el codigo.
gracias

[ramonjosegn]

podrías intentar meter un swf, ahora powerpoint permite incrustar flash