Power Point - saltar a diapositiva impar aleatoriamente

   
Vista:

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:saltar a diapositiva impar aleatoriamente

Publicado por NATY (1 intervención) el 02/07/2009 05:43:48
hola tiens que seleccionar la imagen u objeto yhacer click derecho hipervinculo y pones hipervinculo a diapositiva y escoges la que tu quieras espero te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

saltar a diapositiva

Publicado por Sirlark (1 intervención) el 12/10/2011 00:05:52
Prueba con esta macro como base:



Sub randjump()
Randomize
Dim Inum As Integer
Inum = Int(7 * Rnd + 4)
ActivePresentation.SlideShowWindow.View.GotoSlide (Inum)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar