Cuadrante de Servicio Parte 17 - Realización 3 Diapositiva en PowerPoint

 Vamos a realizar nuestra tercera diapositiva, que está vez consiste en una con un Título y un Gráfico, por lo que el Layout que vamos a utilizar es el 8.

El código VBA de la tercera diapositiva es el siguiente:

Private Sub Diapositiva3()

     X = 3

    'vamos a crear una dispositiva con Titulo y Gráfico

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

    

    'Agregar un logo guardado

    CrearLogo

    

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

    DiapoPP.Shapes(1).TextFrame.TextRange.Text = "Resumen Servicios Realizados"

    'Alineamos el texto

    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 Texto en la forma 2

    'vbnewline nos crea una linea nueva

          

    'eliminamos la forma para que no se vea el texto que hay detras

    DiapoPP.Shapes(2).Delete

    

    'GRAFICO

    'Pegar gráfico como bitmap

    Sheets("ConexionPowerPoint").ChartObjects("Circular1").Chart.CopyPicture

    DiapoPP.Shapes.Paste

    

    'ancho del grafico

    AppPP.ActiveWindow.Selection.ShapeRange.Width = 19.13 * CM

        

    'Alineamos

    AppPP.ActiveWindow.Selection.ShapeRange.Left = 7.37 * CM

    AppPP.ActiveWindow.Selection.ShapeRange.Top = 4.38 * CM   

End Sub

EXPLICACIÓN:

El valor de X está vez es 3 ya que estamos realizando la tercera diapositiva.

Luego tenemos la instrucción que nos indicará que tipo de Layout será que esta vez es el 8 que nos insertará un título y un gráfico.

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

Luego seguimos insertando el logo, agregamos el texto del título y lo alineamos.

Continuamos dando formato al texto.

La línea que nos pega el gráfico es la siguiente:

Sheets("ConexionPowerPoint").ChartObjects("Circular1").Chart.CopyPicture

 DiapoPP.Shapes.Paste

Hay que tener en cuenta que Circular1 es el nombre que se le da en Microsoft Excel al Gráfico.

Continueamos dado el ancho al gráfico y lo alineamos.

Así nos queda la tercera diapositiva: