VBA PowerPoint - Último Slide visto + 1 - Last Slide Viewed + 1

Olá pessoal!

Há algum tempo estava devendo alguns scripts para o MS Powerpoint, segue a primeira das funcionalidades.

Este trecho de código é para uso no modo Slide Show. Copie-o e cole-o num módulo e depois atribua-lhe um botão de ação.

Sub LastPlus()

On Error Resume Next

With SlideShowWindows(1).View

.GotoSlide (.LastSlideViewed.SlideIndex + 1)

End With

End Sub

O botão de ação que você fez, voltará para o slide após o último slide visualizado. Note que a instrução de erro é utilizada porque, no caso de um erro ocorrer este ignora-o. Você pode alterar o código para ir para o Slide antes de o último ser visualizado.

Tags: Powerpoint, Slide, UDF, viewed, last, último

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com