Actualizar propiedades de medios en las presentaciones de 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 la visualización y actualización de propiedades de medios en una presentación de Microsoft PowerPoint 2010.

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. Para dar énfasis o controlar el contenido multimedia que utiliza en las presentaciones, puede ajustar, mostrar o actualizar varias propiedades asociadas con la que los medios. En este tema, insertar un vídeo en una presentación de Microsoft PowerPoint 2010 y, a continuación, mostrar mediante programación y actualizar las propiedades de vídeo. 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, se inserta un archivo de vídeo de muestra en la 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. Eliminar las formas de la primera diapositiva.

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

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

6. Cambiar el tamaño del vídeo para verlo mejor y, a continuación, reproducir para asegurarse de que no hay problemas. Tenga en cuenta la longitud, el principio y horas de finalización y el volumen del vídeo.

Agregar un módulo estándar para la presentación de PowerPoint

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. 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.

2. 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, agregar Microsoft Visual Basic para Aplicaciones código (VBA) que muestra varias propiedades relacionadas con la muestra de vídeo y, a continuación, actualiza algunas de esas propiedades.

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 en la ventana del módulo.

   Sub MediaFormatInfo()
       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
               DisplayMediaFormatInfo shp
   
               ' Work with the MediaFormat property:
               With shp.MediaFormat
                   ' Modify the values that can be modified:
                   ' Start at 2 seconds, end at 5 seconds,
                   ' fade in and out for 1/2 second:
                   .StartPoint = 2000
                   .EndPoint = 5000
                   .FadeInDuration = 500
                   .FadeOutDuration = 500
   
                   ' Ensure the video isn't muted, and
                   ' that the volume is lower than max:
                   .Muted = False
                   .Volume = 0.25
               End With
           Debug.Print "================"
           DisplayMediaFormatInfo shp
           End If
       Next shp
   End Sub
   
   Private Sub DisplayMediaFormatInfo(shp As Shape)
       With shp.MediaFormat
           ' Retrieve all the useful properties:
           Debug.Print vbTab & "AudioCompressionType: " & .AudioCompressionType
           Debug.Print vbTab & "AudioSamplingRate: " & .AudioSamplingRate
           Debug.Print vbTab & "EndPoint: " & .EndPoint
           Debug.Print vbTab & "FadeInDuration: " & .FadeInDuration
           Debug.Print vbTab & "FadeOutDuration: " & .FadeOutDuration
           Debug.Print vbTab & "IsEmbedded: " & .IsEmbedded
           Debug.Print vbTab & "IsLinked: " & .IsLinked
           Debug.Print vbTab & "Length: " & .Length
           Debug.Print vbTab & "Muted: " & .Muted
           Debug.Print vbTab & "ResamplingStatus: " & .ResamplingStatus
           Debug.Print vbTab & "SampleHeight: " & .SampleHeight
           Debug.Print vbTab & "SampleWidth: " & .SampleWidth
           Debug.Print vbTab & "StartPoint: " & .StartPoint
           Debug.Print vbTab & "VideoCompressionType: " & .VideoCompressionType
           Debug.Print vbTab & "VideoFrameRate: " & .VideoFrameRate
           Debug.Print vbTab & "Volume: " & .Volume
       End With
   End Sub
   

Ejecutar el código

En esta tarea se ejecuta el código VBA. El código muestra los valores de propiedad en la ventana Ejecución .

Para ejecutar el código

1. Si no ve la ventana Ejecución , haga clic en Very, a continuación, haga clic en ventana Inmediato.

2. Para un único paso a través del código, coloque el cursor en el procedimiento de MediaFormatInfo y, a continuación, presione F8. Observe los resultados en la ventana Ejecución como recorrer el código.

3. Después de ejecutar todo el código, presione Alt + Q para cerrar el Editor de Visual Basic y mover a la presentación.

4. Ejecute el vídeo. Tenga en cuenta los cambios en la duración y el volumen del vídeo.

Pasos siguientes

• Introducción a los medios en PowerPoint 2010 (traducción automática)

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.