Volver a muestrear vídeos en PowerPoint (traducción automática)
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í.
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
Descargue el ejemplo de PowerPoint 2003 vídeo.
Iniciar PowerPoint 2010.
En el menú Insertar , haga clic en Vídeoy, a continuación, haga clic en Vídeo de archivo.
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
Iniciar PowerPoint 2010.
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.
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
En en el panel Proyectos, haga clic en Module1.
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
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
Eliminar el vídeo existente de la diapositiva 1 y, a continuación, vuelva a insertar una nueva versión.
Abra el Editor de Visual Basic y arrástrelo hasta el lado derecho de su monitor.
Arrastre la ventana de PowerPoint a la izquierda del monitor y ajustar ambas ventanas hasta que pueda ver ambas.
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.