Compartir a través de

Volver a muestrear vídeos en PowerPoint (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 el aumento mediante programación del tamaño de un vídeo en una presentación de Microsoft PowerPoint 2010 mediante el uso del nuevo muestreo.

Applies to: Microsoft PowerPoint 2010

Publicada:   Abril de 2011

Proporcionado por:    Frank Rice, Microsoft Corporation

Agregar vídeos de alta calidad a una presentación con diapositivas puede aumentar considerablemente el impacto que tiene sobre los visitantes. Vídeos pueden proceder de diversos tamaños y resoluciones. Puede aumentar o disminuir el tamaño y la resolución de vídeo u otro gráfico mediante un proceso denominado remuestreo. En este tema, agregar un vídeo a una nueva diapositiva Microsoft PowerPoint 2010 y, a continuación, utilizar mediante programación el remuestreo para aumentar su tamaño conservando gran parte de su resolución. Para completar esta tarea, haga lo siguiente:

  • Agregar un archivo de vídeo de ejemplo para una presentación

  • Agregar un módulo estándar a una presentación de PowerPoint

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

  • Ejecutar el código

Agregar un archivo de vídeo de ejemplo para una presentación

En esta tarea, inserta un archivo de vídeo de ejemplo en una presentación de PowerPoint 2010.

Para insertar un archivo de vídeo

  1. Descargue el ejemplo de PowerPoint 2003 vídeo.

  2. Iniciar PowerPoint 2010.

  3. En el menú Insertar , haga clic en Vídeoy, a continuación, haga clic en Vídeo de archivo.

  4. Desplácese hasta el archivo de vídeo de ejemplo y, a continuación, haga clic en Insertar.

Después de agregar el vídeo, reproducir para asegurarse de que no hay problemas.

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

En esta tarea, abrir una presentación de PowerPoint 2010, 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. Iniciar PowerPoint 2010.

  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 de programación que utiliza la opción volver a muestrear para cambiar la resolución de un vídeo sobre la diapositiva 1. En este caso concreto, el código restablece la resolución y, a continuación, cambia el tamaño del vídeo.

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 ResampleDemo()
    ' This code works through every shape on the
    ' first slide in the presentation, and for each
    ' video it finds, resamples the video to 240x320. If
    ' the resampling succeeds, the code resizes the video
    ' shape to match the new resolution.
    Dim shp As Shape
    For Each shp In ActivePresentation.Slides(1).Shapes
        ' Is it a media shape?
        If shp.Type = msoMedia Then
            Debug.Print "Media Element: " & shp.Name

            Dim newWidth As Integer
            Dim newHeight As Integer
            newHeight = 240
            newWidth = 320
            ' You can specify other parameters, as well, indicating
            ' the video frame rate, the audio sampling rate, and the
            ' video bit rate. For now, just resample and reset
            ' the resolution--the lower the resolution, the smaller the video
            ' content.
            shp.MediaFormat.Resample True, newHeight, newWidth
            Do
                DoEvents
                Pause 1
                Debug.Print "Resample status: " & shp.MediaFormat.ResamplingStatus
            Loop While shp.MediaFormat.ResamplingStatus = ppMediaTaskStatusInProgress
            Debug.Print "Resample status: " & shp.MediaFormat.ResamplingStatus
            If shp.MediaFormat.ResamplingStatus = ppMediaTaskStatusDone Then
                shp.Width = newWidth
                shp.Height = newHeight
            End If
        End If
    Next shp
End Sub

Function Pause(numberOfSeconds As Variant)
    Dim startTime, endTime As Variant

    startTime = Timer
    endTime = startTime + numberOfSeconds

    Do While Timer < endTime
        DoEvents
    Loop
End Function

  3. Cierre el editor de Visual Basic.

Ejecutar el código

En esta tarea se ejecuta el código VBA que restablece la resolución del vídeo y, a continuación, cambia de tamaño.

Para ejecutar el código

  • En la ficha de Programadores , haga clic en Macrosy, a continuación, haga clic en EjecutarResampleDemo. Observe que el código cambia el tamaño del vídeo, pero que la resolución es todavía comparable a la del original. Tenga en cuenta que el código también se escribe información de la ventana Ejecución del Editor de Visual Basic volver a muestrear.

En el siguiente procedimiento, recorra el código y observar cómo cada línea modifica el vídeo. La mejor manera de ver el código de acción es colocar la ventana del Editor de Visual Basic junto a la ventana de PowerPoint.

Paso a paso el código

  1. Eliminar el vídeo existente de la diapositiva 1 y, a continuación, vuelva a insertar una nueva versión.

  2. Abra el Editor de Visual Basic y arrástrelo hasta el lado derecho de su monitor.

  3. Arrastre la ventana de PowerPoint a la izquierda del monitor y ajustar ambas ventanas hasta que pueda ver ambas.

  4. Coloque el cursor en el procedimiento de ResampleDemo y, a continuación, presione F8 para recorrer el código línea por línea. Ver los resultados en la ventana de PowerPoint.

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.