Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
opening power point with vb 1
- Thread starter VBVines
- Start date
-
1
- #2
neilkonitzer
Programmer
Ensure that you have a reference set to the Microsoft Powerpoint Object and Microsoft Office Object Libraries
Here's an example code, you'll need to tweak on the settings to make it more applicable toward your needs. I didn't add any of the event handling code.
Dim appPPT As PowerPoint.Application
Dim presPPT As PowerPoint.Presentation
On Error Resume Next
Set appPPT = GetObject(, "Powerpoint.Application"
If Err.Number <> 0 Then
Err.Clear
Set appPPT = CreateObject("Powerpoint.Application"
End If
On Error GoTo ErrorHandler
Set presPPT = appPPT.Presentations.Open("c:\Test.ppt", msoTrue, msoFalse, msoFalse)
appPPT.Visible = True
With presPPT.SlideShowSettings
.StartingSlide = 1
.EndingSlide = 1
.RangeType = ppShowSlideRange
.AdvanceMode = ppSlideShowUseSlideTimings
.LoopUntilStopped = True
.Run
End With Neil Konitzer, President
Freisoft
Here's an example code, you'll need to tweak on the settings to make it more applicable toward your needs. I didn't add any of the event handling code.
Dim appPPT As PowerPoint.Application
Dim presPPT As PowerPoint.Presentation
On Error Resume Next
Set appPPT = GetObject(, "Powerpoint.Application"
If Err.Number <> 0 Then
Err.Clear
Set appPPT = CreateObject("Powerpoint.Application"
End If
On Error GoTo ErrorHandler
Set presPPT = appPPT.Presentations.Open("c:\Test.ppt", msoTrue, msoFalse, msoFalse)
appPPT.Visible = True
With presPPT.SlideShowSettings
.StartingSlide = 1
.EndingSlide = 1
.RangeType = ppShowSlideRange
.AdvanceMode = ppSlideShowUseSlideTimings
.LoopUntilStopped = True
.Run
End With Neil Konitzer, President
Freisoft
- Status
Similar threads
