Open powerpoint in vb??????

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

THANK YOU ALL :( :MAD: :(

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

Code:

---

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:

Code:

---

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

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:

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

---