Cuadrante de Servicio Parte 19 - Realización 5 Diapositiva en PowerPoint y Fin del Proyecto

 Vamos a realizar la 19 Entrada del proyecto, y última.

En este caso vamos a diseñar la 5 diapositiva de PowerPoint.

Para el diseño de esta diapositiva vamos a utilizar una como la primera es decir, con título y subtítulo.

Inserto el Código:

Private Sub Diapositiva5()

    X = 5

    'vamos a crear una dispositiva con Titulo y Subtitulo

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

    'Agregar un logo guardado

    CrearLogo

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

    DiapoPP.Shapes(1).TextFrame.TextRange.Text = "Fin del Proyecto" & vbNewLine & "Calendario Guardia Civil"

    DiapoPP.Shapes(1).TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignCenter

    'DANDO FORMATO AL TEXTO

    'Usando With / End With

    With DiapoPP.Shapes(1)

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

        .TextFrame.TextRange.Font.Color = vbBlue

        '.TextFrame.TextRange.Font.Size = 24

        '.TextFrame.TextRange.Font.Italic = True

        .TextFrame.TextRange.Font.Bold = True

    End With

    'Crear Subtitulo en la forma 2

    DiapoPP.Shapes(2).TextFrame.TextRange.Text = "Presentado por: " & NombrePresentador

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

    With DiapoPP.Shapes(2)

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

        .TextFrame.TextRange.Font.Color = vbRed

        .TextFrame.TextRange.Font.Size = 24

        '.TextFrame.TextRange.Font.Italic = True

        .TextFrame.TextRange.Font.Bold = True

        'alineacion dentro del cuadro de texto

        .TextFrame.VerticalAnchor = msoAnchorMiddle 'centra verticalmente

    End With    

End Sub

En esta diapositva no hay que explicar mucho, el valor de X lo cambiamos a 5 ya que es la quinta diapositiva.

Nuestro título lo hemos puesto en el siguiente código:

DiapoPP.Shapes(1).TextFrame.TextRange.Text = "Fin del Proyecto" & vbNewLine & "Calendario Guardia Civil"

El código que nos pone el subtítulo es:

 DiapoPP.Shapes(2).TextFrame.TextRange.Text = "Presentado por: " & NombrePresentador

Y aquí se acaba el proyecto del Calendario, espero que os haya gustado.