Criar powerpoint automaticamente com Excel VBA

Planilha Canvas Excel
Planilha Canvas Excel – Modelo de negócios
21 de novembro de 2015
e-mail extractor excel
Planilha Excel para extrair e-mails de um texto do Linkedin e outras redes sociais
5 de dezembro de 2015

Criar powerpoint automaticamente com Excel VBA

A criação de apresentações em powerpoint pode ser bastante trabalhosa, principalmente se tiver que criar apresentações todos os meses, ou ainda se não quiser ter que digitar ou copiar e colar os dados do Excel para o seu powerPoint.

No exemplo comentado de código VBA Excel abaixo, temos a exportação automática de dados do Excel para slides do powerpoint.

O primeiro passo é abrir o PowerPoint e na guia Desenvolvedor clicar no botão Visual Basic.

Exportar excel para powerpoint

Na tela que segue, clique no menu Ferramentas->Referências e marque a opção Microsoft Excel (Sua versão) Object Library. Isto é necessário para que o PowerPoint possa utilizar a biblioteca de programação do Excel.

Exportar excel para powerpoint

Clique no menu Inserir->Módulo e no Módulo1 incluso cole o código abaixo, fazendo as devidas alterações da planilha e do modelo do PowerPoint que será utilizado.

'Exporta dados do Excel para o PowerPoint
Sub lsCriarSlide()
    'Variável do objeto aplicativo Excel
    Dim lAplicativoExcel    As Excel.Application
    'Variável da pasta de trabalho do Excel
    Dim lPastaExcel         As Excel.Workbook
    'Variável da planilha
    Dim lPlanilha           As Excel.Worksheet
    'Variável vetor para armazenar os dados
    Dim lDados(10)          As String
    'Variável do objeto do powerpoint
    Dim lApresentacao       As Presentation
    'Variável do slide
    Dim lSlide              As Slide
    
    'Cria o objeto Excel
    Set lAplicativoExcel = Excel.Application
    'Seta a pasta de trabalho do Excel para um arquivo determinado
    Set lPastaExcel = lAplicativoExcel.Workbooks.Open("C:\Users\Marcos Rieper\Documents\ArquivoExcel.xlsm")
    'Seta a pasta de trabalho que será utilizada
    Set lPlanilha = lPastaExcel.Sheets(1)
    'Seta o objeto do powerPoint para a apresentação ativa
    Set lApresentacao = ActivePresentation
    'Cria um novo slide e determina o layout que será utilizado no mesmo
    Set lSlide = lApresentacao.Slides.Add(Index:=lApresentacao.Slides.Count + 1, Layout:=ppLayoutText)
    
    'Lê os dados das células do Excel e armazena no vetor
    For i = 0 To 4
        lDados(i) = lPlanilha.Range("A" & i + 1).Value
    Next i
    
    'Altera o texto do primeiro quadro do slide
    lSlide.Shapes(1).TextFrame.TextRange = "Vendedores"
    'Inlcui textos no segundo quadro do slide
    lSlide.Shapes(2).TextFrame.TextRange = lDados(0) & vbNewLine & _
                                           lDados(1) & vbNewLine & _
                                           lDados(2) & vbNewLine & _
                                           lDados(3) & vbNewLine & _
                                           lDados(4) & vbNewLine
    'Fecha a pasta de trabalho do Excel
    lPastaExcel.Close
    
End Sub

Altere o local do arquivo Excel, conforme a pasta aonde salvou a sua pasta.

Exportar excel para powerpoint

Depois volte para o PowerPoint e clique no menu Desenvolvedor e no botão Macros.

Selecione a macro lsCriarSlide e clique em executar, o sistema irá criar automaticamente o slide com os dados da planilha Excel.

Exportar excel para PowerPoint VBA

Por fim veja neste artigo 8 dicas para criar uma apresentação profissional no PowerPoint.

Abraço

Marcos Rieper

6 Comments

  1. Paulo Santana disse:

    Link para download está direcionando para os arquivos do artigo de Canvas.

  2. Tripodi disse:

    Boa tarde!

    Marcos como muito boa essa planilha mais e para transferir os graficos para o power point?

  3. leo disse:

    Marcos, parabens pelo site.
    Voce teria algum exemplo de macro que abre um power point copia um slide em outra apresentacao ?

    grato

  4. Michele disse:

    Marcos
    poderia me ajudar?
    Estou tentando usar, porém está me dando está mensagem:
    Erro de compilação: é impossível localizar o projeto ou a biblioteca

    Dim lAplicativoExcel As Excel.Application

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.