Inserisci il numero totale di diapositive in PowerPoint 2007

È possibile inserire in una nota a piè di pagina la quantità totale di diapositive in una presentazione di PowerPoint? Sto cercando un modo automatizzato.

Ovviamente potrei modificare il piè di pagina e inserirlo manualmente, ma se aumento / diminuisco le diapositive, sarebbe necessario modificarlo. E questo è qualcosa che dimentichiamo sempre.

L' aiuto di Microsoft spiega come farlo manualmente. Non posso credere che PowerPoint non ce l'abbia ...

Se stai cercando un'opzione o un'impostazione di configurazione che la aggiungerà automaticamente a ogni presentazione che crei, non ce n'è una. Tuttavia, se modifichi l'intestazione o il piè di pagina, puoi aggiungere automaticamente i numeri delle diapositive e farli apparire su tutte le diapositive.

http://office.microsoft.com/en-us/powerpoint/HA101181931033.aspx

Questo è fondamentalmente il codice di pwrpntuser esteso alla guida completa degli eseguibili.

Creare una macro

1. In PowerPoint 2007 e versioni successive assicurati di aver salvato la presentazione in .pptmestensione (presentazione standard con macro consentite).

2. Assicurarsi di aver aggiunto i numeri di diapositiva utilizzando il metodo descritto in questo articolo ¹ .

3. Apri la finestra " Macro " ² . In PowerPoint 2007 e versioni successive, fare clic sulla Viewscheda (ultima) e quindi sul Macropulsante nell'ultimo gruppo di barre degli strumenti. Nelle versioni per auricolari selezionare Tools > Macrodal menu.

4. Digita un nome per la tua macro (ad esempio PageCountUpdater) e fai clic Create.

5. Incollare il codice di macro (da pwrpntuser risposta s' o al di sotto) fra Sub PageCountUpdater()e End Sub. Cambia vanla riga più rientrata ofo qualcosa di simile nella tua lingua.

6. Salva macro e chiudi Microsoft Visual Basic, Applications. Torna a PowerPoint.

Hai finito. Codice da inserire (completo e con "parola-colla" corretta):

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

Esecuzione di macro

1. Apri di nuovo la finestra " Macro ".

2. Seleziona la PageCountUpdatermacro salvata e premi Run.

Devi farlo ogni volta manualmente. Una scorciatoia da tastiera sarebbe la benvenuta. Ma ... non c'è modo di cambiare le scorciatoie di PowerPoint, tranne l'acquisto di un plugin commerciale, per il quale devi pagare il prezzo a partire da 20 dollari per un computer. Vedi fine di questo o questo articolo per i dettagli.

Eliminazione di macro

Questa macro viene eseguita solo quando ne hai bisogno. Non è una macro live. Aggiorna il campo con il numero effettivo di diapositive e il gioco è fatto. Il campo stesso è un campo di testo standard. Nessuna magia. Ciò significa che puoi facilmente riconvertire il tuo file .pptxe buttare via questa macro, una volta che sei sicuro, che la tua presentazione è terminata e non aggiungerai più diapositive. Il campo rimarrà al suo posto con i valori intatti, una volta rimossa la macro.

Questo è comodo in quanto a molti utenti non piacciono i documenti con macro e molti luoghi di presentazione, fiere, conferenze ecc. Semplicemente non ti permettono di eseguire .pptmfile.

Anche questo va bene, perché questa macro ricrea i campi di numerazione su tutte le diapositive (eccetto quelle per il titolo - vedi la nota 1 alla fine), anche se le rimuovi manualmente. Pertanto, dovresti eseguirlo un'ultima volta, dopo essere sicuro del numero finale e dell'ordine delle diapositive e quindi puoi rimuoverlo.

Apertura file abilitato per le macro

Se decidi di mantenere l' .pptmestensione e la macro all'interno, avrai questo documento sempre aperto con le macro disabilitate e dovrai fare clic Enable macrosogni volta (se esegui le impostazioni predefinite) per abilitarle.

Se i documenti sono tuoi, ti fidi, non contengono codice dannoso e sono tutti archiviati in un luogo sicuro (cioè non in una cartella temporale o condivisa), puoi modificare le impostazioni di ciascun programma di Office per avere questi file sempre aperti con macro abilitate.

Il modo più semplice è aggiungere una cartella con presentazioni abilitate per le macro per proteggere le posizioni in PowerPoint.

Per farlo:

1. Fare clic su Filescheda, Optionspulsante, Trust Centersezione e Trust Center Settingspulsante.

2. Vai alla Trusted locationssezione (secondo) e fai clic sul Add new location...pulsante.

3. Incollare o selezionare il percorso della cartella nel Pathcampo e, facoltativamente, verificare che anche tutte le sottocartelle nella posizione aggiunta vengano trattate come attendibili.

4. Fare clic OKtre volte per confermare e chiudere tutte le finestre aperte. Riapri il documento con attivazione macro.

Da questo punto in poi, tutti i documenti aperti da una posizione appena aggiunta non dovrebbero mostrare alcun avviso e dovrebbero sempre essere aperti con le macro abilitate. Troverai molti più dettagli su questo argomento nel documento di supporto di Office.com .

Le note

¹ _{Nella maggior parte delle versioni di PowerPoint il significato della diapositiva del titolo non viene determinato come prima diapositiva della presentazione , ma come qualsiasi diapositiva definita come diapositiva del titolo . È possibile visualizzare i diversi tipi di diapositiva quando si inserisce uno nuovo. Ciò significa che, se non hai una diapositiva in stile titolo, avrai i numeri di pagina aggiunti a tutte le diapositive. E al contrario: se hai usato molte diapositive del titolo all'interno della presentazione, ad esempio per contrassegnare sezioni o blocchi diversi, mancherai di numerazione su tutte.}

² _{Tutti i nomi degli elementi della GUI sono traduzioni al volo dalla mia edizione polacca di PowerPoint 2010. In altre versioni o edizioni linguistiche di PowerPoint potrebbero essere leggermente diversi. Regola di conseguenza.}

Per prima cosa assicurati che ogni diapositiva abbia un normale slidenumber. Quindi aggiungere un modulo, inserire il seguente codice e premere F5 (Avvio).

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

Il componente aggiuntivo di Bill Dilworth per PowerPoint può aiutarti, a seconda della versione di PowerPoint che stai utilizzando. Questo è esattamente il suo scopo.

Ho trovato una pagina Web che diceva che hai inserito <#> di x in una casella di testo nella diapositiva master e quindi ho aggiunto "numero diapositiva" alla diapositiva. L'ho fatto funzionare brevemente, ma poi quando l'ho spostato e riprovato, non ha più popolato il numero intero di diapositiva in x. Ma questa soluzione può essere fattibile per la maggior parte degli utenti.

Ecco un codice leggermente diverso che aggiorna il piè di pagina con "slide # of ##." Ho scelto di non contare le diapositive nascoste per il totale. Ho questo codice in esecuzione dal mouse sopra un pulsante di azione nascosto sulla diapositiva 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