SOBRE DIAPOSITA EN POWER POINT

26/04/2005 - 22:30 por Rene Palacios | Informe spam
Muchas gracias Hector por responder, mis comentarios sobre la macro son las
sgtes.:

al abrir el libro a la vez se abre el microsoft power point, al irme a excel,
me sale el mensaje:

Se ha producido el error '-2147467259 (800004005)' en tiempo de ejecución:
Power Point could not open the file

Al apretar el botón depurar esta resaltado en amarillo esta lineas de tu
codigo:

Set mi_PPS = _
mi_PP.Presentations.Open( _
"C:\Rene\Rene1.pps")


Es en esa ruta donde esta el archivo de power point, solo tiene una
diaposita, en referencia a esto Hector solo me gustaria que se vea la
diaposita, mas no q sea abra la aplicacion power point.
En este caso como haria para q poniendo una fecha especifica para el libro
solo me aparezca la diaposita de power point y no se pueda usar el libro.
Gracias y disculpa no responder a tiempo por tu solucion ya q estuve sin
conexion.
A la espera de tu ayuda o de los amigos siempre presentes en el foro, de
antemando gracias.

Rene Palacios

Preguntas similare

Leer las respuestas

#1 Rene Palacios
27/04/2005 - 02:40 | Informe spam
Pongo aca los procedimientos q segui de Hecto Miguel para q se pueda entender
el hilo de la pregunta

1.- en el proyecto de macros [vba] del libro...
-> establece una referencia a la libreria de objetos de PowerPoint...
[menu] herramientas / referencias ...
pon una marca en: 'Microsoft PowerPoint x.0 Object Library'
=> toma nota que 'x.0' se refiere al numero de la version instalada de
PowerPoint <2.- copia las lineas 'propuestas' en el modulo de codigo 'indicado'
3.- 'encuentra' el tiempo 'apropiado' para cerrar PowerPoint despues de
'alcanzar' el ultimo 'Slide'
-> en la linea del 'Application.Wait' <- <= OJO

en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Open()
Dim mi_PP As PowerPoint.Application, _
mi_PPS As PowerPoint.Presentation
Set mi_PP = New PowerPoint.Application
mi_PP.Visible = True
Set mi_PPS = _
mi_PP.Presentations.Open( _
"C:\Ruta y\Carpetas donde esta\Tu archivo.pps")
Do
DoEvents
Loop Until mi_PP.SlideShowWindows(1).View.CurrentShowPosition =
mi_PPS.Slides.Count
Application.Wait Now + TimeValue("00:00:10")
mi_PP.Quit
Set mi_PPS = Nothing
Set mi_PP = Nothing
End Sub

Espero su ayuda
Respuesta Responder a este mensaje
#2 Héctor Miguel
27/04/2005 - 11:22 | Informe spam
hola, Rene !

... comentarios sobre la macro ...
... abrir el libro a la vez se abre el microsoft power point, al irme a excel... mensaje:
... error '-2147467259 (800004005)' en tiempo de ejecucion: Power Point could not open the file
... depurar esta resaltado en amarillo esta lineas de tu codigo:
Set mi_PPS = _
mi_PP.Presentations.Open( _
"C:\Rene\Rene1.pps")
... en esa ruta... esta el archivo de power point, solo tiene una diaposita
... que se vea la diaposita, mas no q sea abra la aplicacion power point.
... q poniendo una fecha especifica... solo me aparezca la diaposita de power point y no se pueda usar el libro.



[suposiciones]...
o... 'comentaste/marcaste/eliminaste/... la linea que 'pone' visible al powerpoint [mi_PP.Visible = True]
o... alguna diferencia entre las versiones a que se hace referencia [en vba] vs. la instalada [donde se ejecuta]
o... [efectivamente] powerpoint 'no pudo' encontrar la ruta o el archivo [donde 'le dijiste' que estaba] -???-
[notas]...
-> es requisito 'indispensable' que la aplicacion este 'operativa Y visible' para que pueda... 'hacer lo suyo' :))
-> si lo [unico] que necesitas es una copia de la diapositiva...
[creo que] lo que 'te conviene' es hacer un 'copy/paste' de la diapositiva... al excel -?-
-> con respecto de 'ponerle fecha'... [creo que] necesitaras ser mas... 'especifico' ;)

comentas?
saludos,
hector.
Respuesta Responder a este mensaje
#3 Rene Palacios
28/04/2005 - 19:00 | Informe spam
Hola Hecto gracias por responder, use todo el codigo q pusiste lo unico q
cambie fue la ruta del archivo, pero no tenia abierto power point con la
diapositive

Lo q me piden hacer es lo sgte.

Q el libro en determinada fecha supongamos 20 de mayo me muestre una
diapositiva de power point , tendra un mensaje q yo le pondre, pero q no se
tenga q abrir power point sino q aparezca en esa fecha pedida

Yo uso office xp con los 3 services pack ya instaldos

Espero me puedas ayudar
Respuesta Responder a este mensaje
#4 Héctor Miguel
29/04/2005 - 05:48 | Informe spam
hola, Rene !

... use todo el codigo q pusiste... cambie... la ruta del archivo, pero no tenia abierto power point con la diapositive
... me piden... Q el libro en determinada fecha... muestre una diapositiva de power point
... pero q no se tenga q abrir power point sino q aparezca en esa fecha pedida [...]



me temo [porque asi lo parece] que no 'puse' la suficiente 'claridad' a las notas del 'post' anterior... :))
1) para poder 'mostrar' [lo que se dice... 'mostrar a pantalla completa'] diapositivas de powerpint...
se requiere [invariablemente] de un programa 'gestor' de diapositivas que... 'haga lo suyo' [powerpoint ?]
[al igual que para poder abrir -de manera que se pueda 'trabajar'- un archivo de excel... se require de excel]
-> si 'te piden' que NO se abra el powerpoint... [debiera serles 'obvio' que...] NO se podra 'trabajar' con diapositivas -?-
[a menos que pretendan que se utilice 'otro' programa gestor de diapositivas, diferente del powerpoint] :-(
-> una alternativa [posiblemente] seria que ->copies una imagen<- de la diapositiva... a una hoja de excel -?-
[podrias 'mantenerla oculta'... y mostrarla cuando 'le llegue su fecha'] ;)
[seguramente habra mas y variadas alternativas, pero no me queda claro cual es 'el objetivo'] :-(
2) puedes 'programar eventos' usando el metodo 'OnTime' para que una macro se ejecute en determinada fecha/hora
[obviamente, la aplicacion -en este caso excel- debera estar 'activa' en ese momento]
-> puedes consultar la ayuda en linea [vba] para ver y probar con los ejemplos...
o ver ejemplos mas 'estructurados' en... http://www.cpearson.com/excel/ontime.htm

si cualquier duda... comentas?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida