Diapositiva de power point en excel

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