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


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

5 Comentários

  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.