Diapositiva de power point en excel

23/04/2005 - 00:55 por Rene Palacios | Informe spam
Hace unos dias formule esta pregunta como puedo hacer para q al abrir el
libro primero me muestre una diapositiva en power point podrian ayudarme por
favor me es urgente, gracias por su ayuda de antemano

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
23/04/2005 - 08:37 | Informe spam
hola, Rene !

... q al abrir el libro primero me muestre una diapositiva en power point [...]



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

si cualquier duda... comentas?
saludos,
hector.
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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida