none
Exportando áreas do Excel para o Power Point RRS feed

  • Pergunta

  • Boa tarde.

    Tenho uma duvida.  Necessito exportar determinadas áreas do excel para slides do tamanho exato do power point, contudo, não estou conseguindo inserir mais slides na mesma apresentação para o prosseguimento de cópia das áreas do excel nos novos slides. Alguem poderia me ajudar?

    Segue abaixo o codigo que estou usando:

    Sub gerarApresentacao()

        Dim pptApp As PowerPoint.Application
        Dim pptPres As PowerPoint.Presentation
        Dim pptSld As PowerPoint.Slide
        Dim strImage As String
        
        Set pptApp = CreateObject("PowerPoint.Application")
      
        pptApp.Visible = msoTrue
      
        Set pptPres = pptApp.Presentations.Add
        Set pptPres = pptApp.ActivePresentation
        Set pptSld = pptPres.Slides.Add(1, ppLayoutBlank)
      
        strImage = Range("A1:e12").Select
        Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
                  
        pptApp.ActiveWindow.View.GotoSlide pptSld.SlideIndex
        pptSld.Shapes.Paste.Select
                 
        pptApp.ActiveWindow.Selection.ShapeRange.Top = pptApp.ActiveWindow.Selection.ShapeRange(1).Top + 130
        
        pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
        
        
    End Sub


    sexta-feira, 2 de março de 2018 18:56