Running Power Point Show from VB

Running Power Point Show from VB

Hi,

I am creating an application in VB, wherein the left portion of a form is being used to get input from the user while the right portion of the form is going to be used for displaying Power Point Slide show.

I have created some PPS (Power Point Show) files and am calling it from the VB form, by using PowerPoint Object.

The problem is that PPS runs in its own process and I am not able to run it within a specified space or container in my form. i.e when I call the PPS file from VB, it starts with a full screen view. I have written some code to manage the PPS window, but that gets executed only after the PPS has started running.
Secondly, the PPS which is now running is running in its own process. Consequently, the user can close the PPS or the VB application individually, which I don’t want, because both are integrated.

Please help me on this front.

why not make the PP object invisible and disallow closing of the form?

then when you have to show them a presentation, you can make the PP object visible again ?

This should get you started:

VB Code:

*'Note:
*'Add Microsoft Powerpoint 8.0Oject Library Office '97 in References
*'This code snipplet come from Microsoft Office Development site
 
Add commandbuuton in the from and name it cmdOpenPPT
In cmdOpenPPT_Click add the code below:
  OpenPresentation(strFilename)
 
'*  strFilename = Powerpoint Presentation File
 
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
 
Private Sub OpenPresentation(strFilename As String)
    Dim oPPT As PowerPoint.Application
    Set oPPT = New PowerPoint.Application
    
        
    'open a powerpoint file
    With oPPT
        .Visible = True
        .Presentations.Open (strFilename)
        .Presentations(strFilename).Close
    End With
            
    'View the slide show
    
    Sleep 500
    With oPPT.ActivePresentation.SlideShowSettings
        .AdvanceMode = ppSlideShowUseSlideTimings
        .Run
    End With
    
    
    'Wait until there are no more slide show windows and then quit
    'Powerpoint
    Do
       Sleep 1000
    Loop While oPPT.SlideShowWindows.Count > 0
    oPPT.Quit
    Set oPPT = Nothing
End Sub
 
Private Sub cmdOpenPPT_Click()
  OpenPresentation "c:\files\takefive.pps"
End Sub

Bare in mind it does come from Microsoft so you will probably have to do some tweaking.

Thanks hack...This code I have already tried but the same problem...The PPS is running seperately from VB application....It should run within VB application in some container or otherwise...

Hmmm...I know you can embed and Word document and an Excel spreadhsheet as an OLE object in VB, but I'm not sure about PowerPoint. Let me do a little reasearch and I'll get back to you.

Check out this MSDN link and see if it has anything useful for you.

http://msdn.microsoft.com/library/de...ml/ppkbppt.asp

This link is no longer valid..is there another example somewhere on how to embedd a Powerpoint presentation into VB?