Insertar número total de diapositivas en PowerPoint 2007

Question

¿Es posible insertar la cantidad total de diapositivas de 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 colocarlo manualmente, pero si aumento/disminuzco diapositivas, sería necesario ajustarlo. Y esto es algo que siempre olvidamos.

Elayuda de microsoftexplica cómo hacerlo manualmente. No puedo creer que PowerPoint no lo tenga...

Answer 1

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

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

Answer 2

Esto es básicamentepwrpntusuarioel códigoampliado a la guía ejecutable completa.

Creando macro

1. En PowerPoint 2007 y versiones posteriores, asegúrese de guardar su presentación con .pptmla extensión (se permiten presentaciones estándar con macros).

2. Asegúrese de haber agregado números de diapositiva utilizando el método descritoen este articulo¹ .

3. Abierto "Macro"ventana ^2. En PowerPoint 2007 y versiones posteriores, haga clic en Viewla pestaña (última) y luego en Macroel botón en el último grupo de la barra de herramientas. En versiones anteriores, seleccione Tools > Macrodel menú.

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

5. Pegue el código de macro (depwrpntusuariola respuestao inferior) entre Sub PageCountUpdater()y End Sub. Cambie vanla línea con mayor sangría ofo algo similar en su idioma.

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

Ya terminaste. Código a insertar (completo y con "palabra adhesiva" 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. Abierto "Macro"ventana de nuevo.

2. Seleccione PageCountUpdaterla macro guardada y presione Run.

Tienes que hacer esto cada vez manualmente. Un atajo de teclado sería bienvenido. Pero... no hay forma de cambiar los accesos directos de PowerPoint, excepto comprando un complemento comercial, por el cual tienes que pagar un precio que comienza en 20 dólares por computadora. ver final deesteoesteartículo para más detalles.

Eliminando macro

Esta macro se ejecuta sólo cuando la necesita. No es una macro en vivo. Actualiza el campo con el recuento de diapositivas real y eso es todo. El campo en sí es un campo de texto estándar. Sin magia. Esto significa que puede volver a convertir fácilmente su archivo .pptxy desechar esta macro, una vez que esté seguro de que su presentación está terminada y no le agregará más diapositivas. Los campos permanecerán 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 .pptmel archivo.

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

Abrir archivo habilitado para macros

Si decide mantener .pptmla extensió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 los documentos son suyos, confía en que no contienen códigos maliciosos y todos 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 sencilla es agregar una carpeta con presentaciones habilitadas para macros en ubicaciones seguras en PowerPoint.

Para hacer esto:

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

2. Vaya a Trusted locationsla sección (segunda) y haga clic en Add new location...el botón.

3. Pegue o seleccione la ruta de la carpeta en Pathel campo y, opcionalmente, verifique 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 deberían mostrar ninguna advertencia y siempre deberían abrirse con las macros habilitadas. Encontrarás muchos más detalles sobre este asunto eneste documento de soporte de Office.com.

Notas a pie de página

¹ _{En la mayoría de las versiones de PowerPoint el significadodiapositiva de títuloestá determinado no comoprimera diapositiva de la presentación, pero comocualquier diapositiva con el estilo de diapositiva de título. Puede ver diferentes tipos de diapositivas al insertar una nueva. Esto significa que, si no tienes ninguna diapositiva con el estilo de título, se agregarán números de página a todas las diapositivas. Y lo contrario, si usaras muchosdiapositivas de títuloDentro de la presentación, por ejemplo para marcar diferentes secciones o bloques, le faltará numeración en todas ellas.}

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

Answer 3

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

Answer 4

Encontré una página web que decía que debías poner <#> de x en un cuadro de texto en la diapositiva maestra y luego agregar "número de diapositiva" a la diapositiva. Conseguí que funcionara brevemente, pero cuando lo moví y lo intenté de nuevo, ya no llenaba el número completo de diapositiva en x. Pero esta solución puede ser factible para la mayoría de los usuarios.