Views

Histats

Vitrine

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


powerpoint-header.jpg


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





ReferenceShyam Pillai



TagsPowerpoint, Slide, UDF, VBA, snippets, código, algoritmo, script, SlideIndex, SlideNumber, PageNumber, Shyam Pillai

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias