Macro Power point

[linkysnake]

Se que este es un foro de Excel, pero no encuentro ayuda por ninguna otra parte supongo aqui me podrian ayudar.

Buenas, la verdad yo no se nada sobre macros, pero me gustaria ver si me pueden...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Tepehuani]

Hola hice un ejemplo de lo mas sencillo... solamente adaptalo a tus necesidades, es muy simple, aunque batallé un poco porque el codigo es diferente en el modo SlideShow

Ahora... lo ajusté un...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[linkysnake]

Esta perfecto muchas gracias, me sirvio mucho, y aunque no tengo nada de conocimientos de macros pude comprender el codigo y modificarlo un poco, la unica duda que me queda si no es mucha molestia...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[linkysnake]

modifique el codigo y ahora coloque un cuadro de texto para que me diriga a las diapositivas, quedo algo asi:


Private Sub TextBox1_Change()
If Me.TextBox1.Value = "Modulo1" Then...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Tepehuani]

Es porque la accion se la pusiste al TextBox si cambian sus valores

Haz eso mismo pero asignale esa accion a un CommandButton2 ......mas o menos asi y te debe de jalar

..si no me dices de nuevo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Tepehuani]

Ahhh y quitale el codigo al TextBox !!

 

[linkysnake]

Quedó asi, y funcionó :D

Private Sub CommandButton1_Click()
If Me.TextBox1.Value = "Modulo1" Then
SlideShowWindows(1).View.GotoSlide 2, True
End If

If Me.TextBox1.Value = "Modulo2" Then...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí