VBA Powerpoint - Abrindo uma apresentação .PPS

Termo de Responsabilidade

Sub OpenPPSForEdit()
On Error GoTo ErrHandle

Dim pShow As Presentation' Protege a janela para prevenir o "refreshing"
Let ScreenUpdating = False' Abre a apresentação, entretanto usa um flag adicional - WithWindow = FALSE
Set pShow = Presentations.Open("C:\sample.pps", WithWindow:=msoFalse)
' Abra a janela com a edição habilitada.pShow.NewWindow
' Despretege a janela para iniciar o refreshing novamente.Let ScreenUpdating = TrueExit Sub
ErrHandle:If Err.Number <> 0 ThenMsgBox Err.Number & " " & Err.Description, _vbCritical + vbOKOnly, "Erro"End If

End Sub

Tags: VBA, Powerpoint, open, PPS