通过代码打开PwoerPoint放映文件

Sub OpenPPSForEdit()
On Error GoTo ErrHandle
Dim pShow As Presentation
' Lock the window to prevent refreshing
' See above article example for the code
   ScreenUpdating = False
'Open the show, however use additional flag - WithWindow set to FALSE
   Set pShow = Presentations.Open("C:\sample.pps",  _
                        WithWindow:=msoFalse)
'Open a window now to the presentation for editing
   pShow.NewWindow
' Unlock the window to start refreshing again
   ScreenUpdating = True
   Exit Sub
ErrHandle:
    If Err.Number <> 0 Then
        MsgBox Err.Number & " " & Err.Description, _
               vbCritical + vbOKOnly, "Error"
    End If
End Sub