Añadir medios mediante programación a 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 adición de distintos medios mediante programación a 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 y el audio a una presentación con diapositivas puede aumentar considerablemente el impacto que tiene sobre los visitantes. En este tema, agregar mediante programación un archivo de audio y vídeo a una diapositiva de Microsoft PowerPoint 2010. Para completar esta tarea, haga lo siguiente:

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

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 se muestra cómo incrustar y vincular un archivo de audio y vídeo en una diapositiva de PowerPoint.

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.

   Importante

   Asegúrese de que cambie las dos constantes en el código para que señale a sus propios archivos de audio y vídeo.

   Const videoFileName As String = "C:\Users\Public\Videos\Sample Videos\Bee.wmv"
   Const audioFileName As String = "C:\Users\Public\Music\Sample Music\Happy Birthday.mp3"
   Sub AddMedia()
       With ActivePresentation.Slides(1).Shapes
           Dim shp As Shape
           ' Set only one of height and width--PowerPoint will maintain the correct
           ' aspect ratio for the video. This video is linked (as opposed to embedded).
           Set shp = .AddMediaObject2(videoFileName, msoTrue, msoFalse, 10, 10, 320)
           DisplayMediaInfo shp
   
           ' This audio is embedded, not linked.
           Set shp = .AddMediaObject2(audioFileName, msoFalse, msoTrue, 350, 10)
           DisplayMediaInfo shp
       End With
   End Sub
   
   Private Sub DisplayMediaInfo(shp As Shape)
       If shp.Type = msoMedia Then
           Debug.Print "Embedded: " & shp.MediaFormat.IsEmbedded
           Debug.Print "Linked: " & shp.MediaFormat.IsLinked
       End If
   End Sub
   

Ejecutar el código

En esta tarea se ejecuta el código VBA que incrusta el archivo de audio y vínculos para el archivo de vídeo. El código también escribe la información de estado en la ventana Ejecución .

Para ejecutar el código

• En el Editor de Visual Basic, coloque el cursor en el procedimiento de AddMedia y, a continuación, presione F5 para ejecutar el código. Debería ver el archivo de vídeo y un vínculo al archivo de audio en la diapositiva 1. Tenga en cuenta los valores en la ventana Ejecución que especifican el estado incrustado y vinculado de los medios de comunicación.

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.