Inserir uma barra de progressão no PowerPoint

Outubro 2017


A fim de visualizar a evolução de uma apresentação, você pode inserir uma barra de progressão na parte inferior do diaporama.

Veja como fazer:


Quando o diaporame estiver pronto, vá em Ferramentas, Macro e Visual Basic Editor.
Na janela que aparece, vá em Inserir, Módulo, e recopie o seguinte texto na página em branco:

Sub AddProgressBar()  
    On Error Resume Next  
        With ActivePresentation  
              For X = 1 To .Slides.Count  
              .Slides(X).Shapes("PB").Delete  
              Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _  
              0, .PageSetup.SlideHeight - 12, _  
              X * .PageSetup.SlideWidth / .Slides.Count, 12)  
              s.Fill.ForeColor.RGB = RGB(127, 0, 0)  
              s.Name = "PB"  
              Next X:  
        End With  
End Sub 


Depois, vá em Arquivo, Fechar e voltar para o Microsoft PowerPoint
Na pgina « normal » do PowerPoint, vá em:
Ferramentas, Macro, Macros, selecione AddProcessBar e clique em Executar

Reésultado


No final , a barra deve ficar assim:




Veja também

Artigo original publicado por aakai1056. Tradução feita por pintuda. Última modificação: 23 de abril de 2010 às 12:16 por pintuda.
Este documento, intitulado 'Inserir uma barra de progressão no PowerPoint', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.