Cuadrante de Servicio Parte 16 - Realización 2 Diapositiva en PowerPoint

 Ahora lo que vamos hacer es la segunda diapositiva en PowerPoint.

El código de la segunda diapositiva es el siguiente:

Private Sub Diapositiva2()

    X = 2

    'vamos a crear una dispositiva con Titulo y Texto

    Set DiapoPP = PresentacionPP.slides.Add(Index:=X, Layout:=2)

    'Agregar un logo guardado

    CrearLogo

    'Agregamos Texto que se encuentra en una hoja, es el Titulo

    DiapoPP.Shapes(1).TextFrame.TextRange.Text = "Resumen de tu Calendario Laboral"

    'DANDO FORMATO AL TEXTO

    With DiapoPP.Shapes(1)

        .TextFrame.TextRange.Font.Name = "Times"

        .TextFrame.TextRange.Font.Color = vbBlue

        .TextFrame.TextRange.Font.Bold = True

    End With

    'Crear Texto en la forma 2

    DiapoPP.Shapes(2).TextFrame.TextRange.Text = Range("A2").Value & vbNewLine & Range("A3").Value & _

    vbNewLine & Range("A4").Value & vbNewLine & Range("A5").Value

    DiapoPP.Shapes(2).TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignJustify

End Sub

Vamos a explicar un poco el código, aunque es muy parecido a la primera, pero existen variaciones.

Lo primero que vemos es que como es la segunda diapositiva el valor de la variable X vale 2.

Esta vez hemos elegido un layout cuyo valor es 2 que ésto nos dice que la diapositiva tiene un Título y un Texto, que es diferente a la primera.

El código de CrearLogo, ya sabéis lo que hace, que es insertar nuestro logo.

La primera forma que es el Titulo, le asignamos un texto, que ésto lo hacemos con la línea siguiente:

DiapoPP.Shapes(1).TextFrame.TextRange.Text = "Resumen de tu Calendario Laboral"

El With que hemos puesto es para poner el título el tipo de letra, color y en negrita.

En la segunda forma hemos introducido los datos que se encuentran en las celdas A2, A3, A4, A5 de la hoja de ConexionPowerPoint, esto lo hacemos con el siguiente código:

DiapoPP.Shapes(2).TextFrame.TextRange.Text = Range("A2").Value & vbNewLine & Range("A3").Value & _

    vbNewLine & Range("A4").Value & vbNewLine & Range("A5").Value

La palabra vbNewLine lo que no hace es cambiarnos de linea del texto.

Este texto le hemos dado una alineación de Justificado, mediante esta línea:

 DiapoPP.Shapes(2).TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignJustify

Nuestro Proyecto de PowerPointa nos ha quedado, hasta el momento, así:

Primera Diapositiva

Segunda Diapositiva