Compartir a través de

Crear vídeos desde presentaciones de PowerPoint mediante programación (traducción automática)

  • Artículo

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Pancarta de nota rápida de Office

Introducción a los medios en PowerPoint: Información sobre la creación de un clip de vídeo desde diapositivas de Microsoft PowerPoint 2010.

Applies to: Microsoft PowerPoint 2010

Publicada:   Abril de 2011

Proporcionado por:    Frank Rice, Microsoft Corporation

En lugar de pedir a los usuarios hacer clic en la presentación con diapositivas, puede crear un vídeo de la presentación y, a continuación, pida a los usuarios ver el vídeo. En este tema, crea mediante programación un vídeo de las diapositivas en la presentación. Para completar esta tarea, haga lo siguiente:

  • Descargue e instale una presentación de PowerPoint de ejemplo

  • Agregue un módulo estándar en el Editor de Visual Basic

  • Agregue el código en el Editor de Visual Basic

  • Ejecutar el código

Descargue e instale una presentación de PowerPoint de ejemplo

En esta tarea, descargar e instalar una presentación de PowerPoint de muestra para utilizar en el resto de esta nota rápida.

Para instalar la presentación de PowerPoint de ejemplo

  1. Abrir ejemplo de PowerPoint 2002: presentación para una exposicióny, a continuación, haga clic en Descargar.

  2. Cuando se le pregunte si desea ejecutar o guardar el archivo, haga clic en Ejecutar.

  3. En el cuadro de diálogo Instalar ahora , haga clic en Síy, a continuación, haga clic en Sí para el contrato de licencia.

  4. En el siguiente cuadro de diálogo, haga clic en Examinar, especifique una ubicación para guardar el archivo y, a continuación, haga clic en Aceptar.

  5. Haga clic en Aceptar en el cuadro de diálogo completo de instalación.

Agregue un módulo estándar en el Editor de Visual Basic

En esta tarea, abra el Editor de Visual Basic y, a continuación, inserte un módulo estándar.

Para agregar un módulo estándar a una presentación de PowerPoint

  1. Busque la ubicación de descarga especificado anteriormente y, a continuación, haga doble clic en ppKiosk.ppt para abrirla.

  2. En la ficha Desarrollador, haga clic en Visual Basic para abrir el Editor de Visual Basic.

    Nota

    Si no ve la ficha Programador en PowerPoint, haga clic en la ficha de Archivo y, a continuación, haga clic en Opciones. En el panel de categorías, haga clic en Popular, seleccione Mostrar ficha Programador en la Cintay, a continuación, haga clic en Aceptar.

  3. En el menú Insertar, haga clic en Módulo. Con esta operación Module1 se agrega al panel Proyectos en la parte izquierda del Editor de Visual Basic.

Añadir código al Editor de Visual Basic

En esta tarea, agregue código al Editor de Visual Basic.

Para agregar código al Editor de Visual Basic

  1. En en el panel Proyectos, haga clic en Module1.

  2. Pegue o escriba el siguiente código de Microsoft Visual Basic para aplicaciones (VBA) en la ventana del módulo.

    Sub TestCreateSampleVideo()
    ' Change the file path and name as required.
    CreateSampleVideo ActivePresentation, "C:\TEMP\Video.wmv"
End Sub

Sub CreateSampleVideo(pres As Presentation, fileName As String)
    ' Presentation.CreateVideo does its work asynchronously.
    ' You can use the Presentation.CreateVideoStatus property
    ' to periodically check the status, and react accordingly.

    pres.CreateVideo fileName, DefaultSlideDuration:=1, VertResolution:=480

    ' Now wait for the conversion to be complete:
    Do
        ' Don't tie up the user interface; add DoEvents
        ' to give the mouse and keyboard time to keep up.
        DoEvents
        Select Case pres.CreateVideoStatus
            Case PpMediaTaskStatus.ppMediaTaskStatusDone
                MsgBox "Conversion complete!"
                Exit Do
            Case PpMediaTaskStatus.ppMediaTaskStatusFailed
                MsgBox "Conversion failed!"
                Exit Do
            Case PpMediaTaskStatus.ppMediaTaskStatusInProgress
                Debug.Print "Conversion in progress"
            Case PpMediaTaskStatus.ppMediaTaskStatusNone
                ' You'll get this value when you ask for the status 
                ' and no conversion is happening or has completed.
            Case PpMediaTaskStatus.ppMediaTaskStatusQueued
                Debug.Print "Conversion queued"
        End Select
    Loop
End Sub

  3. Cierre el editor de Visual Basic.

En este procedimiento, el método CreateVideo del objeto Presentation hace todo el trabajo. El resto del código proporciona el estado de la conversión.

Además de un nombre de archivo, el método CreateVideo acepta los siguientes parámetros:

  • UseTimingsAndNarration indica si se debe utilizar los intervalos y las narraciones de presentación que ha proporcionado. Si false, la conversión, se omite la información. El valor predeterminado es true.

  • DefaultSlideDuration indica el intervalo predeterminado para cada diapositiva, si no ha especificado un tiempo, o si establece UseTimingsAndNarration en false. El valor predeterminado es 5 segundos.

  • VertResolution indica la resolución vertical para el vídeo. El valor predeterminado es 720. Las opciones estándar incluyen 720, 480 y 240, aunque se puede especificar cualquier valor razonable. Por ejemplo, podría especificar 200, aunque no es un estándar de resolución vertical.

  • FramesPerSecond indica el número de fotogramas por segundo en la salida de vídeo. El valor predeterminado es 30; No cambie este valor a menos que tenga un muy buen motivo para cambiarlo.

  • Quality indica una relativa de la calidad de vídeo; el valor predeterminado es de 85. Cuanto mayor sea el número, mayor será el resultado y más tiempo que se tarda en crear el vídeo. No cambie este valor a menos que tenga un muy buen motivo para cambiarlo. Si establece el valor en un número bajo, verá una degradación definitiva en la calidad de salida.

Ejecutar el código

En esta tarea se ejecuta el código que crea el vídeo de las diapositivas de la presentación.

Para ejecutar el código

  • En la ficha de Programadores , haga clic en Macrosy, a continuación, haga clic en EjecutarTestCreateSampleVideo.

    Desplácese hasta el nuevo vídeo y ejecútelo.

Pasos siguientes

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.