Cuadrante de Servicio Parte 13

 Vamos a continuar con nuestra aplicación, pero ahora vamos a conectar nuestra aplicación de Microsoft Excel con Microsoft PowerPoint.

Para ello vamos a insertar una hoja nueva en nuestro archivo, en mi caso le he puesto en la pestaña ConexionPowerPoint.

Y posteriormente nos vamos a ir a la pestaña Programador y pinchamos en Visual Basic.

Y a la izquierda nos saldrá Proyecto - VbaProject y con el ratón derecho le damos a insertar, y luego Modulo. A este modulo le ponemos el nombre que queramos, en mi caso le he dejado el nombre de Módulo1.

En este módulo, antes de realizar alguna macro, vamos a crear una serie de variables a nivel de módulo, que serán reconocidos en todas las macros que hagamos en dicho módulo.

Son las siguientes:

'nuestro objeto powerpoint

Dim AppPP As Object

'la presentacion de powerpoint

Dim PresentacionPP As Object

'las diapositivas de la presentación

Dim DiapoPP As Object

'nombre presentador

Dim NombrePresentador As String

Como se ve la primera línea que antes de ella posee un apostrofe, nos indica que es un comentario, por lo que nuestro código no hace nada con dicha línea.

Vamos a crear nuestra primera macro que simplemente nos abrirá la aplicación y nos creará la presentación pero no posee ninguna diapositiva.

Sub abrirPowerPoint()

'Crear (abrir) las aplicación PowerPoint

Set AppPP = CreateObject("PowerPoint.Application")

'Agregar una nueva presentación

Set PresentacionPP = AppPP.Presentations.Add

'Hacer que PowerPoint est'visible (NO activo)

AppPP.Visible = True

End Sub

Esta macro simplemente es una prueba, y como podemos ver, nos abre la aplicación con una presentación, pero no posee ninguna diapositiva.