Convertir Power Point en un vídeo Full HD

Power Point Logo

Convertir Power Point en un vídeo Full HD

Power Point LogoAhora puede convertir Power Point 2010 en un vídeo, lo que facilita su distribución y su visionado por parte de los destinatarios sin aplicaciones de terceros.

Cuando desee dar una presentación de alta fidelidad a sus compañeros de trabajo o clientes, puede guardarla y reproducirla como un vídeo.

En PowerPoint 2010, ahora se puede guardar la presentación como un archivo de vídeo de Windows Media (.wmv) y distribuirla con confianza, sabiendo que las animaciones y la narración de su presentación multimedia se reproducirán sin problemas. Si no desea utilizar el formato de archivo .wmv formato, puede utilizar una utilidad de terceros recomendada para convertir el archivo a otro formato (.avi, .mov, etc.).

Ahora puede convertir fácilmente una presentación Power Point 2010 en un vídeo Clic para tuitear

Para resoluciones mayores leer hasta el final del post.

Convertir Power Point como un vídeo

  1. Cree una presentación.
  2. (Opcional) Grabar y agregar una narración y sincronizarla en una presentación con diapositivas y Convertir el mouse en un puntero láser.
  3. Guarde la presentación.
  4. En el menú Archivo, haga clic en Grabar y enviar.
  5. En Guardar y enviar, haga clic en Crear un vídeo.
  6. Para mostrar todas las opciones de calidad de vídeo y de tamaño, en Crear un vídeo, haga clic en la flecha abajo de Pantallas de PC y de alta definición.
  7. Siga uno de estos procedimientos:
    • Para crear un vídeo de calidad muy alta pero con un tamaño de archivo grande, haga clic en Pantallas de PC y de alta definición.
    • Para crear un vídeo con un tamaño de archivo moderado y calidad media, haga clic en Internet y DVD.
    • Para crear un vídeo con el tamaño de archivo más pequeño y baja calidad, haga clic en Dispositivos portátiles. Sugerencia    Es conveniente que pruebe estas opciones para determinar cuál de ellas satisface sus necesidades.
  8. Haga clic en la flecha abajo No usar narraciones ni intervalos grabados y, a continuación, haga lo siguiente:
    • Si no grabó ni sincronizó una narración de voz y los movimientos del puntero láser, haga clic en No usar narraciones ni intervalos grabados. Sugerencia    El tiempo predeterminado empleado en cada diapositiva se establece en 5 segundos. Para modificarlo, a la derecha de Segundos de duración de cada diapositiva, haga clic en las flechas arriba o abajo para aumentar o disminuir la cantidad de segundos.
    • Si grabó y sincronizó la narración y los movimientos del puntero, haga clic en Usar narraciones e intervalos grabados.
  9. Haga clic en Crear vídeo.
  10. En el cuadro Nombre de archivo, escriba un nombre de archivo para el vídeo, busque la carpeta que incluirá el archivo y haga clic en Guardar. Puede controlar el progreso de la creación del vídeo desde la barra de estado en la parte inferior de la pantalla. El proceso de creación del vídeo puede llegar a tardar varias horas dependiendo de la duración del vídeo y de la complejidad de la presentación. Sugerencia    En el caso de vídeos más extensos, puede configurarlos para que se creen durante la noche. De esta manera, estarán listos a la mañana siguiente.
  11. Para reproducir el vídeo recién creado, vaya a la ubicación de la carpeta designada y, a continuación, haga doble clic en el archivo.

Como grabar el vídeo en Full HD o resolución mayor

Tal y como vemos en el diálogo de Power Point sólo nos deja 3 altenativas, donde la alternativa de más alta calidad es de 720 (HD):

Power Point to Video

Para guardar el video en otras resuluciones tenemos que ejecutar una macro VBA:

  1. Pulsamos Alt+F11 para abrir el editor de macros VBA
  2. Menú Insertar > Módulo
  3. Pegamos el siguiente código y pulsamos F5:

Public Const HD = 720
Public Const FullHD = 1080
Public Const QHD = 1152 ‘2K
Public Const UHD = 2304 ‘4K
Public Const QUHD = 4320 ‘8K

Sub HiResVid()
Dim intChoice As Integer
Dim fd As FileDialog

If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
With Application.FileDialog(msoFileDialogSaveAs)
.Title = “Salvar video como…”
.AllowMultiSelect = False
.InitialFileName = ActivePresentation.FullName & “.wmv”
intChoice = .Show
If intChoice <> 0 Then
‘get the file path selected by the user
strPath = Trim(.SelectedItems(1)) & “.wmv”
‘displays the result in a message box
Call MsgBox(strPath, vbInformation, “Save Path”)
ActivePresentation.CreateVideo FileName:=strPath, VertResolution:=FullHD
End If
End With
‘End If
End Sub

Podemos guardarlo en distintas resoluciones cambiando la siguiente línea:

VertResolution:=HD ‘720

VertResolution:=FullHD ‘1080

VertResolution:=QHD ‘2K

VertResolution:=UHD ‘4K

VertResolution:=QUHD ‘8K

 

 

César Themudo