VBA Powerpoint - Pedaços de códigos úteis - Useful PowerPoint VBA code snippets

| Blog Office VBA | Blog Excel | Blog Access |

Determine o Slide atual no modo de exibição:

 

Sub SlideIDX()

MsgBox "O índice do Slide atual é: " & _ ActiveWindow.View.Slide.SlideIndex

End Sub

Determine o Slide atual no modo apresentação:

Sub SlideIDX()

MsgBox "O índice do Slide atual é: " & ActivePresentation.SlideShowWindow.View.Slide.SlideIndex 

End Sub

Diferença entre as Propriedades SlideIndex e SlideNumber:

A propriedade SlideIndex retorna a posição real do Slide dentro da apresentação. A propriedade SlideNumber retorna o PageNumber que vai aparecer no Slide. Esse valor de propriedade depende do número do Slide configurado na 

Vá para o Menu Design e escolha a opção Configurar Página.

Altere o valor de Numerar os Slides a partir de 2 e, em seguida, enquanto estiver no 1º Slide, execute a seguinte macro:

Sub Difference()

MsgBox "O Nº do Slide atual é: " & _

      ActiveWindow.View.Slide.SlideNumber & " enquanto o índice deste Slide é :" & ActiveWindow.View.Slide.SlideIndex

End Sub

Macro para sair todas as apresentações de slides em execução:

Sub ExitAllShows()

Do While SlideShowWindows.Count > 0

    SlideShowWindows(1).View.Exit

Loop

End Sub

Código para atualizar Slide atual durante a apresentação:

Sub RefreshSlide()

Dim lSlideIndex As Long

Let lSlideIndex = SlideShowWindows(1).View.CurrentShowPosition

SlideShowWindows(1).View.GotoSlide lSlideIndex

End Sub

Código que redefine a animação construída para o Slide atual durante a apresentação:

Sub ResetSlideBuilds()

Dim lSlideIndex As Long

Let lSlideIndex = SlideShowWindows(1).View.CurrentShowPosition

SlideShowWindows(1).View.GotoSlide lSlideIndex, True

End Sub

Insira um Slide após slide atual:

Sub InsertSlide()

Dim oView As View

With ActivePresentation.Slides

     Set oView = ActiveWindow.View

     oView.GotoSlide .Add(oView.Slide.SlideIndex + 1, ppLayoutTitleOnly).SlideIndex

     Set oView = Nothing

End With

End Sub

Reference: Shyam Pillai

Tags: Powerpoint, Slide, UDF, VBA, snippets, código, algoritmo, script, SlideIndex, SlideNumber, PageNumber, Shyam Pillai