Inserir o número total de slides no PowerPoint 2007

É possível inserir a quantidade total de slides em uma apresentação do PowerPoint em uma nota de rodapé? Eu estou procurando uma maneira automatizada.

É claro que eu poderia editar o rodapé e colocá-lo manualmente, mas se eu aumentar / diminuir os slides, seria necessário ajustá-lo. E isso é algo que sempre esquecemos.

o ajuda da Microsoft explica como fazê-lo manualmente. Eu não posso acreditar que o PowerPoint não tem isso ...

Se você estiver procurando por uma opção ou configuração que irá adicioná-la automaticamente a todas as apresentações que você criar, não haverá uma. No entanto, se você editar o cabeçalho ou o rodapé, poderá adicionar números de slide automaticamente e fazê-los aparecer em todos os slides.

http://office.microsoft.com/pt-BR/powerpoint/HA101181931033.aspx

Isso é basicamente pwrpntuser código de estendido para guia executável completo.

Criando macro

1. No PowerPoint 2007 e mais recente, certifique-se de salvar sua apresentação em .pptm extensão (apresentação padrão com macros permitidas).

2. Certifique-se de ter adicionado números de slide usando o método descrito neste artigo ¹ .

3. Abrir " Macro "janela ² . No PowerPoint 2007 e mais recente, clique em View aba (última) e depois Macro botão no último grupo da barra de ferramentas. Nas versões anteriores, selecione Tools > Macro do menu.

4. Digite um nome para sua macro (digamos PageCountUpdater ) e clique Create.

5. Colar código de macro (de pwrpntuser resposta ou abaixo) entre Sub PageCountUpdater() e End Sub. mudança van na linha mais recuada para of ou qualquer coisa parecida no seu idioma.

6. Salvar macro e fechar o Microsoft Visual Basic for Applications. Volte para o PowerPoint.

Você está feito. Código a inserir (completo e com a palavra "cola" corrigida):

Sub PageCountUpdater()
    Dim s As Slide
    Dim shp As Shape

    For Each s In ActivePresentation.Slides
        s.DisplayMasterShapes = True
        s.HeadersFooters.SlideNumber.Visible = msoTrue

        For Each shp In s.Shapes
            If Left(shp.Name, 12) = "Slide Number" Then
                shp.TextFrame.TextRange.Text = s.SlideNumber & " of " & ActivePresentation.Slides.Count
            End If

        Next
    Next
End Sub

Executando macro

1. Abrir " Macro "janela novamente.

2. Selecione salvo PageCountUpdater macro e acertar Run.

Você tem que fazer isso a cada vez manualmente. Um atalho de teclado seria muito bem-vindo. Mas ... não há como alterar os atalhos do PowerPoint, exceto para comprar um plug-in comercial, pelo qual você precisa pagar um preço a partir de 20 dólares por um computador. Veja o final de isto ou isto artigo para detalhes.

Excluindo macro

Esta macro é executada apenas quando você precisa. Não é uma macro ao vivo. Atualiza o campo com a contagem real de slides e é isso. O campo em si é um campo de texto padrão. Sem magia. Isso significa que você pode facilmente converter seu arquivo de volta para .pptx e jogue esta macro fora, uma vez que você tenha certeza, que sua apresentação está pronta e você não adicionará mais slides a ela. O campo permanecerá em seus lugares com seus valores intocados, depois que a macro for removida.

Isso é confortável, pois muitos usuários não gostam de documentos com macros e muitos locais de apresentação, feiras, conferências etc. simplesmente não permitem que você execute .pptm Arquivo.

Isso também é bom, porque essa macro recria os campos de numeração em todos os slides (exceto os de título - consulte a nota de rodapé no 1 no final), mesmo que você os remova manualmente. Portanto, você deve executá-lo uma última vez, depois de ter certeza sobre o número final e a ordem dos slides e, em seguida, poderá removê-lo.

Abrindo arquivo habilitado para macro

Se você decidir manter .pptm extensão e macro dentro, você terá este documento sempre aberto com macros desativadas e você terá que clicar Enable macros a cada vez (se você executar em configurações padrão) para habilitá-los.

Se os documentos são seus, você confia, eles não contêm código malicioso e todos eles são armazenados em um local seguro (ou seja, não em alguma pasta temporal ou compartilhada), você pode alterar as configurações de cada programa do Office para que esses arquivos sempre sejam abertos com macros ativadas.

A maneira mais fácil é adicionar pasta com apresentações habilitadas para macro para proteger locais no PowerPoint.

Para fazer isso:

1. Clique File aba, Options botão, Trust Center seção e Trust Center Settings botão.

2. Vamos para Trusted locations seção (segundo) e clique em Add new location... botão.

3. Cole ou selecione o caminho da pasta Path e, opcionalmente, verifique se todas as subpastas no local adicionado também devem ser tratadas como confiáveis.

4. Clique OK três vezes para confirmar e fechar todas as janelas abertas. Reabra seu documento habilitado para macro.

Deste ponto em diante, todos os documentos abertos a partir do local adicionado não devem exibir nenhum aviso e devem sempre ser abertos com macros ativadas. Você encontrará muito mais detalhes sobre esse assunto este documento de suporte do Office.com .

Notas de rodapé

¹ _{Na maioria das versões do PowerPoint, o significado slide de título é determinado não como primeiro slide na apresentação , mas como qualquer slide estilizado como slide de título . Você pode ver diferentes tipos de slides ao inserir um novo. Isso significa que, se você não tiver um estilo de slide como título, terá números de página adicionados a todos os slides. E em frente - se você usou muitos slides de título Dentro da apresentação, por exemplo, para marcar diferentes seções ou blocos, você terá numeração faltando em todos eles.}

² _{Todos os nomes dos elementos GUI são uma tradução dinâmica da minha edição polonesa do PowerPoint 2010. Em outros lançamentos ou edições de idioma do PowerPoint, eles podem ser um pouco diferentes. Ajuste de acordo.}

Primeiro, certifique-se de que cada slide tenha um slidenumber normal. Em seguida, adicione um módulo, insira o seguinte trecho de código e pressione F5 (Iniciar).

Dim s As Slide
Dim shp As Shape

For Each s In ActivePresentation.Slides
    s.DisplayMasterShapes = True
    s.HeadersFooters.SlideNumber.Visible = msoTrue

    For Each shp In s.Shapes
        If Left(shp.Name, 12) = "Slide Number" Then
            shp.TextFrame.TextRange.Text = s.SlideNumber & " van " & ActivePresentation.Slides.Count
        End If

    Next
Next

O suplemento de Bill Dilworth para o PowerPoint pode ajudá-lo, dependendo de qual versão do PowerPoint você está usando. Este é exatamente o seu propósito.

Eu encontrei uma página web que dizia que você colocaria & lt; # & gt; de x em uma caixa de texto no slide mestre e, em seguida, adicione "número do slide" ao slide. Consegui que funcionasse rapidamente, mas depois, quando o movi e tentei novamente, ele não mais preenchia o número inteiro do slide em x. Mas esta solução pode ser viável para a maioria dos usuários.

Aqui está um código ligeiramente diferente que atualiza seu rodapé com "slide # de ##". Eu escolhi não contar slides ocultos para o total. Eu tenho este código executando o mouse sobre um botão de ação oculto no slide 1.

Dim SlideTotal As Integer
Dim VisibleSlides As Integer
Dim SlideNum As Integer
Dim i As Integer

With ActivePresentation

    SlideTotal = .Slides.Count

    For i = 1 To SlideTotal
        If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
            VisibleSlides = 1 + VisibleSlides
        End If
    Next

    For i = 1 To SlideTotal
        If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
            SlideNum = 1 + SlideNum
            .Slides(i).HeadersFooters.Footer.Visible = msoCTrue
            .Slides(i).HeadersFooters.Footer.Text = "Slide " & SlideNum & " of " & VisibleSlides
        Else
            .Slides(i).HeadersFooters.Footer.Visible = -msoFalse
        End If
    Next

End With