Macro not executed Excel -- PowerPoint
 

Hi I need help with this: Trying to figure out why my powerpoint macro
doesn´t execute, I found some clues...:

Firsto of all I´m programming with VBA in Excel 2000, and this is the
macro I use to open the ppt presentation and to run a specific
SlideShow:




Code:
--------------------

Sub ShowPPT(pp As String)
Dim pptapp, ppt As Object
Application.ScreenUpdating = False
Set pptapp = CreateObject("PowerPoint.Application")
pptapp.Visible = True
Set ppt = pptapp.Presentations.Open(ActiveWorkbook.Path & "\Distingos.ppt")
With ppt.SlideShowSettings
.ShowType = 1
.LoopUntilStopped = msoFalse
.ShowWithNarration = msoFalse
.ShowWithAnimation = msoFalse
.RangeType = 3
.SlideShowName = pp
.AdvanceMode = 2
.PointerColor.SchemeColor = 2
.Run
End With
Set ppt = Nothing
Set pptapp = Nothing
Application.ScreenUpdating = True
End Sub

--------------------


This works great, the problem cames when the ppt file opens, I only
want it to show certain slides (I created a lot of Custom SlideShows),
and when the user clicks the mouse close the presentation and the
application... I use this code:



Code:
--------------------

Sub EndShow()
SlideShowWindows(1).View.Exit
Application.Quit
End Sub

--------------------


But for some reason, this macro (attached to a shape) doesn´t run!!!, I
tried to open manually the ppt file and then run the show, clic the
shape and it works... why it doesn´t work when I open it from Excel???

Could anybody help me???


---
Message posted from http://www.ExcelForum.com/