saltar a diapositiva impar aleatoriamente
Publicado por robinlambada (4 intervenciones) el 28/02/2008 16:19:44
Buenas , esto es creo un gran reto y es fundamnetal para la presentación que , pretendo hacer, sobre un asombroso juego de magia.
Sin dilación le explico:
necesito un boton en ciertas diapositivas, que su finalidad sea saltar aleatoriamente a cualquier diapositiva impar
Si pulso un boton (este estaría en las diapositivas pares) me salta a cualquier diapositiva impar al azar ( 1 ó 3 ó 5 ......)entre 1 y 19
( He hecho una macro en visual basic ,generando una variable i impar aleatoria entre 1 y 19.
Pero, ¿como asigno un clic del ratón, o un botón o imagen , que al pulsarlo me vaya a la diapositiva numero i ?, siendo "i" la variable impar aleatoria descrita por esta macro:
Sub azar()
'
' Macro creada el 28/02/2008 por Robin
'
Dim n As Integer
Dim i As Integer
Dim LimiteInferior As Integer
Dim LimiteSuperior As Integer
LimiteInferior = 1
LimiteSuperior = 10
n = Int((LimiteSuperior - LimiteInferior + 1) Rnd + LimiteInferior)
i = 2 n - 1
.......................
(nota si existe otro metodo no me importa, solo necesito saltar a voluntada a diapositivas impares cualesquiera al azar, entre las 20 existentes)
Si me resuelven mi problema , les prometo remitirles mi pps
Sin más gracias y si lo conseguimos , seguro que os encantara el resultado.
Saludos , y disculpe la extensión.
Sin dilación le explico:
necesito un boton en ciertas diapositivas, que su finalidad sea saltar aleatoriamente a cualquier diapositiva impar
Si pulso un boton (este estaría en las diapositivas pares) me salta a cualquier diapositiva impar al azar ( 1 ó 3 ó 5 ......)entre 1 y 19
( He hecho una macro en visual basic ,generando una variable i impar aleatoria entre 1 y 19.
Pero, ¿como asigno un clic del ratón, o un botón o imagen , que al pulsarlo me vaya a la diapositiva numero i ?, siendo "i" la variable impar aleatoria descrita por esta macro:
Sub azar()
'
' Macro creada el 28/02/2008 por Robin
'
Dim n As Integer
Dim i As Integer
Dim LimiteInferior As Integer
Dim LimiteSuperior As Integer
LimiteInferior = 1
LimiteSuperior = 10
n = Int((LimiteSuperior - LimiteInferior + 1) Rnd + LimiteInferior)
i = 2 n - 1
.......................
(nota si existe otro metodo no me importa, solo necesito saltar a voluntada a diapositivas impares cualesquiera al azar, entre las 20 existentes)
Si me resuelven mi problema , les prometo remitirles mi pps
Sin más gracias y si lo conseguimos , seguro que os encantara el resultado.
Saludos , y disculpe la extensión.
Valora esta pregunta
0