Insertar el número total de diapositivas en PowerPoint 2007

¿Es posible insertar la cantidad total de diapositivas en una presentación de PowerPoint en una nota al pie? Estoy buscando una forma automatizada.

Por supuesto, podría editar el pie de página y ponerlo manualmente, pero si aumento / disminuyo las diapositivas, sería necesario ajustarlo. Y esto es algo que siempre olvidamos.

La ayuda de Microsoft explica cómo hacerlo manualmente. No puedo creer que PowerPoint no lo tenga ...

Si está buscando una opción o una configuración que simplemente la agregue automáticamente a cada presentación que cree, no hay una. Sin embargo, si edita el Encabezado o el Pie de página, puede agregar automáticamente números de diapositivas allí y hacer que aparezcan en todas las diapositivas.

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

Esto es básicamente el código de pwrpntuser extendido a la guía ejecutable completa.

Creando macro

1. En PowerPoint 2007 y versiones posteriores, asegúrese de haber guardado su presentación con .pptmextensión (se permite la presentación estándar con macros).

2. Asegúrese de haber agregado números de diapositiva usando el método descrito en este artículo ¹ .

3. Abra la ventana " Macro " ² . En PowerPoint 2007 y versiones posteriores, haga clic en la Viewpestaña (última) y luego en el Macrobotón en el último grupo de la barra de herramientas. En las versiones de auricular seleccione Tools > Macrodel menú.

4. Escriba un nombre para su macro (digamos PageCountUpdater) y haga clic Create.

5. Pegar código de macro (de pwrpntuser respuesta 's o menos) entre Sub PageCountUpdater()y End Sub. Cambie vanen la línea más sangría ofo algo similar en su idioma.

6. Guarde la macro y cierre Microsoft Visual Basic para Aplicaciones. Regrese a PowerPoint.

Ya terminaste Código a insertar (completo y con "palabra de unión" corregida):

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

Ejecutando macro

1. Abra la ventana " Macro " nuevamente.

2. Seleccione PageCountUpdatermacro guardada y presione Run.

Tienes que hacer esto cada vez manualmente. Un atajo de teclado sería muy bienvenido. Pero ... no hay forma de cambiar los accesos directos de PowerPoint, a excepción de comprar un complemento comercial, por el que debe pagar el precio a partir de 20 dólares por una computadora. Vea el final de este o este artículo para más detalles.

Eliminar macro

Esta macro solo se ejecuta cuando la necesita. No es una macro en vivo. Actualiza el campo con el conteo real de diapositivas y eso es todo. El campo en sí es un campo de texto estándar. Sin magia Esto significa que puede convertir fácilmente su archivo de nuevo .pptxy desechar esta macro, una vez que esté seguro, de que su presentación está terminada y no le agregará más diapositivas. El campo permanecerá en sus lugares con sus valores intactos, una vez que se elimine la macro.

Esto es cómodo ya que a muchos usuarios no les gustan los documentos con macros y muchos lugares de presentación, ferias, conferencias, etc. simplemente no le permiten ejecutar .pptmarchivos.

Esto también es bueno, porque esta macro recrea los campos de numeración en todas las diapositivas (excepto las de título, vea la nota al pie no 1 al final), incluso si las elimina manualmente. Por lo tanto, debe ejecutarlo por última vez, después de estar seguro sobre el número final y el orden de las diapositivas y luego puede eliminarlo.

Abrir archivo habilitado para macros

Si decide mantener la .pptmextensión y la macro dentro, tendrá este documento siempre abierto con las macros deshabilitadas y tendrá que hacer clic Enable macroscada vez (si ejecuta la configuración predeterminada) para habilitarlas.

Si confía en que los documentos son suyos, no contienen código malicioso y están almacenados en una ubicación segura (es decir, no en una carpeta temporal o compartida), puede cambiar la configuración de cada programa de Office para que estos archivos siempre se abran con macros habilitadas.

La forma más fácil es agregar carpetas con presentaciones habilitadas para macros a ubicaciones seguras en PowerPoint.

Para hacer esto:

1. Haga clic en la Filepestaña, Optionsbotón, Trust Centersección y Trust Center Settingsbotón.

2. Vaya a la Trusted locationssección (segundo) y haga clic en el Add new location...botón.

3. Pegue o seleccione la ruta de la carpeta en el Pathcampo y, opcionalmente, compruebe que todas las subcarpetas en la ubicación agregada también deben tratarse como confiables.

4. Haga clic OKtres veces para confirmar y cerrar todas las ventanas abiertas. Vuelva a abrir su documento habilitado para macros.

A partir de este momento, todos los documentos abiertos desde la ubicación recién agregada no deben mostrar ninguna advertencia y siempre deben abrirse con las macros habilitadas. Encontrará muchos más detalles sobre este asunto en este documento de soporte de Office.com .

Notas al pie

¹ _{En la mayoría de las versiones de PowerPoint, la diapositiva del título que significa no se determina como la primera diapositiva de la presentación , sino como cualquier diapositiva diseñada como diapositiva de título . Puede ver diferentes tipos de diapositivas al insertar una nueva. Esto significa que, si no tiene una diapositiva con estilo como título, tendrá números de página agregados a todas las diapositivas. Y al contrario: si usó muchas diapositivas de título dentro de la presentación, por ejemplo, para marcar diferentes secciones o bloques, faltará la numeración en todas ellas.}

² _{Los nombres de todos los elementos de la GUI son traducciones sobre la marcha de mi edición polaca de PowerPoint 2010. En otras versiones o ediciones de PowerPoint de PowerPoint pueden ser ligeramente diferentes. Ajustar en consecuencia.}

Primero asegúrese de que cada diapositiva tenga un número de diapositiva normal. Luego agregue un módulo, inserte el siguiente código y presione F5 (Inicio).

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

El complemento de Bill Dilworth para PowerPoint puede ayudarlo, dependiendo de la versión de PowerPoint que esté utilizando. Este es exactamente su propósito.

Encontré una página web que decía que pones <#> de x en un cuadro de texto en la Diapositiva maestra y luego agregas "número de diapositiva" a la diapositiva. Lo puse a trabajar brevemente, pero cuando lo moví e intenté nuevamente, ya no llenó el número completo de la diapositiva en x. Pero esta solución puede ser factible para la mayoría de los usuarios.

Aquí hay un código ligeramente diferente que actualiza su pie de página con "diapositiva # de ##". Elegí no contar las diapositivas ocultas hacia el total. Tengo este código ejecutándose desde el mouse sobre un botón de acción oculto en la 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