Open powerpoint in vb??????

[paulwbarnes]

CAN ANYONE HELP ME OPEN A SLIDE SHOW (POWERPOINT) IN VB5 OR JUST POWERPOINT.

THANK YOU ALL :MAD:

[seaweed]

You can open powerpoint like this, using shell (make sure you put in your particular path to the application):

Option Explicit

Private Sub Command1_Click()
    
    Dim lRetVal As Long
    lRetVal = Shell("c:\program files\microsoft office\" & _
        "office\powerpnt.exe", vbNormalFocus)
    
End Sub

To open a particular presentation, just follow the above path with a space, and then the path of the presentation, as in:

Option Explicit

Private Sub Command1_Click()
    
    Dim lRetVal As Long
    lRetVal = Shell("c:\program files\microsoft office\" & _
        "office\powerpnt.exe c:\MyPresentations\Presentation1.ppt", vbNormalFocus)
    
End Sub

~seaweed

Edited by seaweed on 02-24-2000 at 06:24 PM

[Serge]

Or you can instatiate a PowerPoint object.
Add a reference to Microsoft PowerPoint 8.0 Object Library (or the highest version you have installed), then use this code:

Private Sub Command1_Click()
    Dim objPowerPoint As New PowerPoint.Application
    Dim objPresentation As New PowerPoint.Presentation
    
    objPowerPoint.Visible = msoCTrue
    Set objPresentation = objPowerPoint.Presentations.Open("D:\test.ppt")
End Sub