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/