Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

SOBRE DIAPOSITA EN POWER POINT

26/04/2005 - 22:30 por Rene Palacios | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :