Excel | Envie todos os gráficos do Excel para uma apresentação do PowerPoint

 

Uma macro muito útil que permite adicionar todos os seus gráficos do Excel à sua apresentação do PowerPoint com apenas um clique:

Sub SendExcelFiguresToPowerPoint()

     'Definir referência à biblioteca de objetos do Microsoft Powerpoint 

    'Declarar suas variáveis 

        ​​Dim PP As PowerPoint.Application

         Dim PPPres As PowerPoint.Presentation

         Dim PPSlide As PowerPoint.Slide

         Dim i As  Integer 

    'Verificar gráficos; saia se não existirem gráficos 

        Sheets( "Slide Data" ). Selecione 

            se ActiveSheet.ChartObjects.Count < 1  Then 

                MsgBox "Nenhum gráfico existente na planilha ativa" 

                Exit  Sub 

            End  If 

    'Abra o PowerPoint e crie uma nova apresentação 

        Definir PP = Novo PowerPoint.Application

         Definir PPPres = PP.Presentations.Add

        PP.Visible = True 

    'Inicia o loop com base na contagem do gráfico 

            For i = 1  To ActiveSheet.ChartObjects.Count

             'Copia o gráfico como uma imagem

                ActiveSheet.ChartObjects(i).Chart.CopyPicture _

                Tamanho:=xlTela, Formato:=xlImagem

                Application.Wait (Now + TimeValue( "0:00:1" ))

             'Conta os slides e adiciona um novo slide como o próximo número de slide disponível

                ppSlideCount = PPPres.Slides.Count

                Definir PPSlide = PPPres.Slides.Add(SlideCount + 1 , ppLayoutBlank)

                PPSlide. Selecione 

            'Colar a imagem e ajustar sua posição; Vá para o próximo gráfico 

                PPSlide.Shapes.Paste. Selecione 

                PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True 

                PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True 

            Próximo i

     ' 

        Conjunto de limpeza de memória PPSlide = Nada 

        definido PPPres = Nada 

        definido PP = Nada 

End  Sub

Parabéns! Como você ainda está lendo isso, você está realmente interessado em aprender VBA. Como você já viu, a linguagem de programação VBA é extremamente útil e pode nos poupar muito tempo. Espero que você tenha achado essas informações úteis e as use para se tornar um mestre em MS Excel, VBA e software de computador em geral.

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série Donut Project 

  

 Clique nas capas abaixo e compre também: