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
.com