Insertar el número total de diapositivas en PowerPoint 2007

Ya no tienes que indagar más en otros sitios porque has llegado al sitio adecuado, contamos con la respuesta que buscas pero sin complicarte.

Solución:

Esto es básicamente pwrpntuserEl código se extendió a la guía completa ejecutable.

Creando macro

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

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

3. Abierto “Macro” ventana ². En PowerPoint 2007 y versiones posteriores, haga clic en View pestaña (última) y luego en Macro en el último grupo de barras de herramientas. En versiones anteriores, seleccione Tools > Macro del menú.

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

5. Pegar macro código (de pwrpntuserrespuesta o más abajo) entre Sub PageCountUpdater() y End Sub. Cambio van en la línea más sangrada para of o algo similar en tu idioma.

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

Ya terminaste. Código a insertar (completo y con “palabra-pegamento” 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. Seleccionar guardado PageCountUpdater macro y golpea Run.

Tienes que hacer esto cada vez de forma manual. Un atajo de teclado sería bienvenido. Pero … no hay forma de cambiar los atajos de PowerPoint, excepto comprando un plugin comercial, por el cual tienes que pagar un precio a partir de 20 dólares por computadora. Consulte el final de este o este artículo para obtener más detalles.

Eliminando macro

Esta macro se ejecuta solo cuando lo necesita. No es una vidamacro. 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 convertir fácilmente su archivo a .pptx y tira esto macro Una vez que esté seguro, su presentación está lista y no le agregará más diapositivas. Field permanecerá en sus lugares con sus valores intactos, una vez macro es removido.

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 te dejarán correr. .pptm expediente.

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

Apertura macro-archivo habilitado

Si decides quedarte .pptm extensión y macro adentro, tendrás este documento siempre abierto con las macros deshabilitadas y tendrás que hacer clic Enable macros cada vez (si ejecuta la configuración predeterminada) para habilitarlos.

Si los documentos son suyos, confía en que no contienen código malicioso y están todos 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 macro-Presentaciones habilitadas para proteger ubicaciones en PowerPoint.

Para hacer esto:

1. Hacer clic File pestaña, Options botón, Trust Center sección y Trust Center Settings botón.

2. Ir a Trusted locations sección (segunda) y haga clic en Add new location... botón.

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

4. Hacer clic OK tres veces para confirmar y cerrar todas las ventanas abiertas. Vuelve a abrir tu macro-documento habilitado.

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, el significado diapositiva de título se determina no como primera diapositiva de la presentación, pero como cualquier diapositiva con estilo de 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, se agregarán números de página a todas las diapositivas. Y al revés, si usaste muchos diapositivas de título dentro de la presentación, por ejemplo para marcar diferentes secciones o bloques, faltará numeración en todos ellos.}

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

Primero asegúrese de que cada diapositiva tenga un número de deslizamiento normal. Luego agregue un módulo, inserte el siguiente fragmento de 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, según la versión de PowerPoint que esté utilizando. Este es exactamente su propósito.

Más adelante puedes encontrar las interpretaciones de otros usuarios, tú aún tienes la libertad de dejar el tuyo si te gusta.

---

---

Utiliza Nuestro Buscador