Assuming you don't have the original editable file then if you want to open a PowerPoint Show (.pps or .ppsx) file for editing, create a new blank presentation, in the VBE add a module and paste the code below. Change the file name as you like and run it.
Code: Select all
Sub OpenShowFileForEdit()
On Error GoTo ErrHandle
Dim pShow As Presentation
' Lock the window to prevent refreshing
ScreenUpdating = False
'Open the show, however use additional flag - WithWindow set to FALSE
Set pShow = Presentations.Open("K:\Presentation.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