Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Histats

Vitrine

+Views

Widgets Mundo Blogger

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

Inline image 1

Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias