Adquira o meu curso: Dominando Módulo de Classe ✔ Mais de 200 aulas; ✔ 22 horas de conteúdo; ✔ Exemplos práticos; ✔ Exercícios teóricos; ✔ Criação de Projetos; ✔ Suporte a dúvidas; ✔ Grupo da turma no Telegram; ✔ Certificado de conclusão; ✔ Garantia de 7 dias Aproveite o cupom de lançamento: CLS35 (35% de desconto) 🔗 go.hotmart.com/R94584567J?dp=1
As dicas práticas compartilhadas durante o tutorial são valiosas. Você simplificou uma tarefa potencialmente complexa, tornando-a eficiente e eficaz.Seu vídeo é uma verdadeira ferramenta para quem procura aprimorar seus processos de certificação usando o Excel e o PowerPoint. Obrigado por compartilhar um recurso tão valioso que simplifica processos e aumenta a produtividade!
Top demais! Parabéns pelo conteúdo e obrigado por compartilhar. Já consegui pensar em várias rotinas que podemos ser aplicadas como por exemplo pegar esses dados através de um formulário Google e em seguida enviar o certificado por e-mail para a pessoa.
Fala professor! Eu fiz uma adaptações no código para usar em um Workshop que irei fazer onde trabalho e quanto ao erro ao fechar eu tentei solucionar dessa forma, utilizando tratamentos de erro, não sei se é a mais indicado mas, por hora está funcionando bem. Option Explicit Sub Certificados() Dim PPT As New PowerPoint.Application Dim Apr As PowerPoint.Presentation Dim Slide As PowerPoint.Slide, Lin As Integer
On Error Resume Next
If MsgBox("Deseja gerar os certificados?", 36, "Certificado") = 7 Then Exit Sub
Set Apr = PPT.Presentations.Open(ThisWorkbook.Path & "\Certificado.pptx") Set Slide = Apr.Slides(1)
Lin = 7
While Planilha1.Cells(Lin, 5) "" And Planilha1.Cells(Lin, 10) "Gerado"
Muito bom o conteúdo, funcionou do início ao fim, só temos que nos atentar aos detalhes, exemplo: nomear as caixas de texto do slide. Muito bom mesmo, recomendo. Faltou para completar a transferência de imagem... Como faço, pode me ajudar?
@programandoemvba , sim, automatizei a lista de presença, coleto as assinaturas por intermédio de mesa digitalizadora, salvo-as já na lista, que automatizada gera os certificados, mas as assinaturas não são exportadas.
É possível sim! No seu caso, basta acrescentar um novo slides ou quantos preferir, para esse caso o código será o mesmo, desde que a alteração permaneça apenas no primeiro slide.
Parabéns, aula sensacional!! Muito didática e objetiva! Se o meu objetivo fosse criar vários slides, um abaixo do outro, qual código eu poderia utilizar?
O princípio da automação é você é você facilitar aquilo que é repetitivo, se o que você quer é criar uma apresentação via VBA eu não recomendo, a reocmendação é você fazer manual o que vc precisa, e deixar somente o que for repetitivo, via código.
Sensacional! Muito obrigado, me ajudou demais! E se nesse caso, eu quisesse também alterar alguma informação no verso, como por exemplo, colocar a nota dos alunos. Como que faria para inserir a informação no slide 2?
Não é tão difícil, basta você seguir a mesma lógica e fazendo a inclusão do seu segundo slide. Ou seja, declarar uma outra variável chamada Slide2 (Dim Slide2 as PowerPoint.Slide), e depoiis instancaiar (Set Slide2 = Apr.Slides(2)), ou seja, informando que é o seu segundo slide. O resto segue a mesma coisa do primeiro.
@@programandoemvba Boa noite, segui o passo a passo do vídeo e dessa explicação, acontece tudo certo até ele editar o certificado, mas na hora de salvar ele é subtituido, salvando apenas o slide 2 e editando o slide 1 salvando só o primeiro nome. Você tem algum vídeo fazendo mudança em mais de um slide pra eu acompanhar?
Amigo, aula top. Mas tenho uma duvida, se quisermos imprimir os slides ao invés de salvar em PDF, ou seja, a cada nome gerado os certificados já são enviados para impressão.
@@kevincampos.oficial eu gostaria de fazer o mesmo que vc, só criar mais slides e salvar um arquivo único ao final, porque preciso imprimir tbm, então facilita ser um arquivo só. Não sei VBA, vou tentar fazer seguindo o vídeo... Mas, pela lógica, tem que ter um comando de criar novo slide dentro do loop e depois o comando de salvar arquivo fora do loop. Você conseguiu fazer o que precisava?
Olá! É possível sim, vou te passar um código para você colar no seu VBA, fazer a depuração para entender a lógica e implementar. Verá que é bem simples. Espero ter ajudado. Sub Contar() Dim i As Integer, x As Integer
Amigo sou da area de seguranca do trabalho e estou com muita dificuldade para emitir meus certificados. Nao conheco nada de vba e infelizmente nao conheço nada de VBA. Quanto vc me cobraria para fazer um acesso remoto p instalar o vba e me ensinar a integrar meus certificados e minhas planilhas
Olá, em primeiro parabéns pela aula ajudou muito para uma necessidade específica que eu tinha aqui. Uma pergunta, eu posso enviar esses arquivos depois de pronto para algum servidor ou algo que e funcionaria para que eu pudesse fazer online se eu precisar usar e nao estiver no meu local de trabalho?
Que bom ter lhe ajudado meu nobre! Você gostaria de enviar os certificados para o servidor, é isso? Desculpa eu não ter entendido muito bem o que você gostaria. Poder explicar de uma outra maneira para que eu possa te auxiliar melhor?
Eu gostaria de enviar os arquivos xlsm e pptx para um servidor e acessa-los via navegador pelo endereço do diretorio e alterar dados e gerar certificado de uma forma online.@@programandoemvba
Infelizmente não temos suporte para fazer realizado dessa forma. Precisa ser feito de forma local mesmo, ou então deixar em alguma nuvem, dessa forma dar certo.
Olá! Tudo bem? sou completamente leiga no assunto, mas seu video me ajudou demais! Unico ponto é que ele dá o mesmo erro que deu no seu na hr de salvar e dar o quit, como não sei nada de programação, não entendi como vc fez para resolver, consegue me ajudar ?
Olá Aline!! Sendo sincero, eu não consegui ajustar, mas o que posso dizer, é que atualmente, o mesmo código está funcionando sem dar essa parada. O que às vezes causa esse bug é algo relacionado a memória, e se for o caso, só reiniciar o computador para normalizar. Faz o teste e me retorna se teve êxito. Aguardo seu retorno!
@@programandoemvba Refiz tudo e ele ainda dá um erro! Tempo de execução '424' Não sei se posso estar fazendo algo errado: Sub Certificados() Dim PPT As New PowerPoint.Application Dim Apr As PowerPoint.Presentation Dim Slide As PowerPoint.Slide, lin As Byte
If MsgBox("Deseja gerar os certificados?", 36, " Certificado") = 7 Then Exit Sub
Set Apr = PPT.Presentations.Open(ThisWorkbook.Path & "\Reconhecimento1.pptx")
@@alinesilvabuttura8023 Aqui estava dando erro 424, troquei o nome da planilha e funcionou. Aqui não funciona se eu colocar planilha1, troquei por folha1, que é o nome automático da minha planilha e foi.
Professor como crio aquelas #automatica no PowerPoint, fiz igual o que mostrou, porém não puxou as informações da planilha, pelo contrário apagou todas as# que tinha no ppt
Olá!! Você deve ter se passado em algum detalhe no vídeo, tenta assistir novamente com um pouco mais de calma, certeza que você vai encontrar o ponto chave.
@@programandoemvba Infelizmente não encontrei como fazer ficar automático o preenchimento. Até abrir o arquivo com a macro funcionou, mas o preenchimento não. 😟😟
Boa trade, preciso adicionar também imagens no meu documento, como eu faria para ele ler o link da imagem que está na minha planilha e colocá-la como imagem no campo destinado no ppt?
@@programandoemvba ao invés de colocar uma caixa de texto no powerpoint Renomeada como "NOME", nao posso deixar somente #nome ? gostaria de saber o comando vba sem caixa de texto. acredito que esse comando abaixo muda sem a caixa de texto né ? Slide.Shapes("NOME").TextFrame.TextRange.Text = Planilha1.Cells(lin, 1)
Olá bom dia! O meu código já da erro no início a linha... Dim PPT As New PowerPoint.Application da erro de compilação, o tipo definido pelo usuário não foi definido.
ola porque se eu fizer desta forma ele nao incrementa o lin slide.Shapes("dados").TextFrame.TextRange.Text = VBA.Replace(slide.Shapes("dados").TextFrame.TextRange.Text, "Nome", Planilha1.Cells(lin, 1))
Boa tarde. Sub Certificados() Dim PPT As New PowerPoint.Application Dim Apr As PowerPoint.Presentation Dim Slide As PowerPoint.Slide Set Apr = PPT.Presentations.Open(ThisWorkbook.Path & "\certificadoauto.pptx") Quando executo com o F5 recebo esta mensagem de erro: erro de compilação o tipo definido pelo usuário não foi definido O que pode estar errado?
eu tenho um ppt que tem 10 slides, todo dia eu tenho que alterar 4 informações em cada slide, como eu poderia fazer para ir para o próximo slide e alterar ??
Tem sim! Seguindo o exemplo do vídeo, só você adaptar o código que salva o slide para esse que vou te mandar: Apr.Export ThisWorkbook.Path & "\Certificados\" & Nome, "jpg"
@@programandoemvba Não funciona como salvando em .pdf. Aqui, o que acontece é a criação de uma pasta nome e não gera todos os certificados, apenas o último. Como se substituisse os arquivo exportado pelo último.
@@eduardoasada4807 de fato não funcionará, se observar bem, esse modo é para salvar como imagem, se quiser salvar como PDF, o modo é esse que vou mandar no exemplo abaixo: Apr.ExportAsFixedFormat ThisWorkbook.Path & "\Certificados\" & Nome & ".pdf", ppFixedFormatTypePDF
Olá João! Você seguindo o passo a passo exatamente como está vídeo, ainda sim está causando erros? Outra pergunta, a forma que está no PowerPoint, você renomeou para Nome? Porque esse pode ser o problema, ele está tentando localizar a forma com esse nome "Nome" e não encontrou.
Assim que coloco "Set Apr = PPT.Presentations.Open(ThisWorkbook.Path & "\SãoJoão.pptx")" da Erro de automação (Erro 440), falando que o método "OPen" do objeto "Presentation" falhou.
Adquira o meu curso: Dominando Módulo de Classe
✔ Mais de 200 aulas;
✔ 22 horas de conteúdo;
✔ Exemplos práticos;
✔ Exercícios teóricos;
✔ Criação de Projetos;
✔ Suporte a dúvidas;
✔ Grupo da turma no Telegram;
✔ Certificado de conclusão;
✔ Garantia de 7 dias
Aproveite o cupom de lançamento: CLS35 (35% de desconto)
🔗 go.hotmart.com/R94584567J?dp=1
As dicas práticas compartilhadas durante o tutorial são valiosas. Você simplificou uma tarefa potencialmente complexa, tornando-a eficiente e eficaz.Seu vídeo é uma verdadeira ferramenta para quem procura aprimorar seus processos de certificação usando o Excel e o PowerPoint. Obrigado por compartilhar um recurso tão valioso que simplifica processos e aumenta a produtividade!
Disponha!! Eu fico contente por o conteúdo ter sido útil. 🤜🏽🤛🏽
Top demais! Parabéns pelo conteúdo e obrigado por compartilhar. Já consegui pensar em várias rotinas que podemos ser aplicadas como por exemplo pegar esses dados através de um formulário Google e em seguida enviar o certificado por e-mail para a pessoa.
Muito obrigadooo!!! Sobre como utilizar essa solução, as possibilidades são muitas, o céu é limite!
Fala professor! Eu fiz uma adaptações no código para usar em um Workshop que irei fazer onde trabalho e quanto ao erro ao fechar eu tentei solucionar dessa forma, utilizando tratamentos de erro, não sei se é a mais indicado mas, por hora está funcionando bem.
Option Explicit
Sub Certificados()
Dim PPT As New PowerPoint.Application
Dim Apr As PowerPoint.Presentation
Dim Slide As PowerPoint.Slide, Lin As Integer
On Error Resume Next
If MsgBox("Deseja gerar os certificados?", 36, "Certificado") = 7 Then Exit Sub
Set Apr = PPT.Presentations.Open(ThisWorkbook.Path & "\Certificado.pptx")
Set Slide = Apr.Slides(1)
Lin = 7
While Planilha1.Cells(Lin, 5) "" And Planilha1.Cells(Lin, 10) "Gerado"
Slide.Shapes("Nome").TextFrame.TextRange.Text = Planilha1.Cells(Lin, 5)
Slide.Shapes("Data").TextFrame.TextRange.Text = Planilha1.Cells(2, "H")
Slide.Shapes("CidadeEstado").TextFrame.TextRange.Text = Planilha1.Cells(3, "H")
Apr.ExportAsFixedFormat ThisWorkbook.Path & "\Certificados\" & _
Planilha1.Cells(Lin, 5) & ".pdf", ppFixedFormatTypePDF
Planilha1.Cells(Lin, 10) = "Gerado"
Lin = Lin + 1
Wend
Apr.Close
If Err.Number 0 Then
MsgBox "Erro ao fechar a apresentação: " & Err.Description, vbExclamation, "Erro"
End If
On Error GoTo 0
PPT.Quit
Set PPT = Nothing
Set Apr = Nothing
Set Slide = Nothing
MsgBox "Certificados gerados com sucesso!", 64, "Concluído!"
End Sub
Eu tbm tentei colocar o tratamento do erro, não nem assim, funcionou. Mas se no seu deu certo, é isso ae! Vamos que vamos!!
Cara, salvou meu dia, achei que ia ter que comprar um pacote no forms para fazer isso, melhor youtuber com certeza!
Valeu 😀
Que bom que ajudou, haha!
Muito obrigado! nunca programei segui os passos e deu super certo, utilizo para certificados de segurança do trabalho.
Que legal, João!!
Não sabe como fico feliz em saber que funcinou direitinho! Sucesso para você!!!
Parabéns pela a aula rápido e prática.
Obrigado mano!! 🤜🏽🤛🏽
Grande Matheus, aula Sensacional como sempre. Já tô bolando umas maneiras de usar essas dicas. Valeu Mestre 👍🤛🤝
É isso ae mano!! É sempre bom pegar algo novo e colocar logo em prática, porque assim aprimoramos e fixamos cada vez mais. Vamos que vamos!!🤜🏽🤛🏽🚀🚀🚀
Muito boa sua explicação.
Ricardo, muito obrigado meu caro! Que bom que você gostou da didática. Tmj 🤜🏽🤛🏽
Muito bom o conteúdo, funcionou do início ao fim, só temos que nos atentar aos detalhes, exemplo: nomear as caixas de texto do slide.
Muito bom mesmo, recomendo.
Faltou para completar a transferência de imagem... Como faço, pode me ajudar?
Você fala em adicionar imagens?
@programandoemvba , sim, automatizei a lista de presença, coleto as assinaturas por intermédio de mesa digitalizadora, salvo-as já na lista, que automatizada gera os certificados, mas as assinaturas não são exportadas.
Nesse vídeo eu mostro como fazer, só procurar o ponto exato: ua-cam.com/video/AB_uPZAWh8w/v-deo.htmlsi=hgquBhrh2AAhwEYp
@@programandoemvba muito obrigado, vou fazer.
Sucesso aí!
Aula didática, ajudou muito.
Sensacional, me ajudou muito!!
Excelente vídeo aula, parabéns!
Nesse mesmo contexto, é possível criar o verso do Certificado em PDF com o Conteúdo Programático do curso?
Obrigado!
É possível sim!
No seu caso, basta acrescentar um novo slides ou quantos preferir, para esse caso o código será o mesmo, desde que a alteração permaneça apenas no primeiro slide.
Simple’s prático e fácil 😊
É isso ae, é bom saber que estou no caminho certo!! Obrigado pelo seu comentário 🤜🏽🤛🏽
Parabéns, aula sensacional!! Muito didática e objetiva!
Se o meu objetivo fosse criar vários slides, um abaixo do outro, qual código eu poderia utilizar?
O princípio da automação é você é você facilitar aquilo que é repetitivo, se o que você quer é criar uma apresentação via VBA eu não recomendo, a reocmendação é você fazer manual o que vc precisa, e deixar somente o que for repetitivo, via código.
Perfeito!
Muito obrigado! 🤝🏽🚀
Obrigado. Eu conseguir. So tive que fazer um botão no desenvolvedor, pq eu não tinha, ai fui ver outro tutorial.
E isso ae mano!!
Espetacular
Muito obrigado, mano!
Sensacional! Muito obrigado, me ajudou demais! E se nesse caso, eu quisesse também alterar alguma informação no verso, como por exemplo, colocar a nota dos alunos. Como que faria para inserir a informação no slide 2?
Não é tão difícil, basta você seguir a mesma lógica e fazendo a inclusão do seu segundo slide.
Ou seja, declarar uma outra variável chamada Slide2 (Dim Slide2 as PowerPoint.Slide), e depoiis instancaiar (Set Slide2 = Apr.Slides(2)), ou seja, informando que é o seu segundo slide. O resto segue a mesma coisa do primeiro.
@@programandoemvba Boa noite, segui o passo a passo do vídeo e dessa explicação, acontece tudo certo até ele editar o certificado, mas na hora de salvar ele é subtituido, salvando apenas o slide 2 e editando o slide 1 salvando só o primeiro nome.
Você tem algum vídeo fazendo mudança em mais de um slide pra eu acompanhar?
Amigo, aula top. Mas tenho uma duvida, se quisermos imprimir os slides ao invés de salvar em PDF, ou seja, a cada nome gerado os certificados já são enviados para impressão.
É possível sim. Uma sugestão é você pegar o código jogar no chat gpt e pedir para ele fazer essa adaptação.
Poderia compartilhar o codigo da macro completo para copiar e colar?
Outro ponto tem como criar um único arquivo e gerando novos slides?
Olá! O código pronto está disponível para quem for apoiador do canal. Sobre a segunda pergunta, acredito que seja possível sim.
@@kevincampos.oficial eu gostaria de fazer o mesmo que vc, só criar mais slides e salvar um arquivo único ao final, porque preciso imprimir tbm, então facilita ser um arquivo só.
Não sei VBA, vou tentar fazer seguindo o vídeo... Mas, pela lógica, tem que ter um comando de criar novo slide dentro do loop e depois o comando de salvar arquivo fora do loop.
Você conseguiu fazer o que precisava?
@@patty-audiolivros não fui a fundo para conseguir, mas tenho certeza de que é possivel.
Que crack! Saludos.
Thanks very much!
Amigo do céu me ajuda, a qualidade das imagens está muito ruim. Mas de qualquer forma parabéns pela aula, deu certo!
Olá!! Muito obrigado, mano!!
A qualidade ficou ruim? Você fez exatamente como fiz no vídeo?
Adorei, sensacional, da pra colocar quantos certificados foram gerados?
Olá! É possível sim, vou te passar um código para você colar no seu VBA, fazer a depuração para entender a lógica e implementar. Verá que é bem simples. Espero ter ajudado.
Sub Contar()
Dim i As Integer, x As Integer
For i = 1 To 10
x = x + 100
Next
MsgBox "Total: " & x, 64
End Sub
Amigo sou da area de seguranca do trabalho e estou com muita dificuldade para emitir meus certificados. Nao conheco nada de vba e infelizmente nao conheço nada de VBA. Quanto vc me cobraria para fazer um acesso remoto p instalar o vba e me ensinar a integrar meus certificados e minhas planilhas
Boa noite meu caro!
Bom... O VBA é um recurso que vem nativo dentro do pacote office, sobre uma consultoria, você pode me chamar pelo Discord.
Olá, em primeiro parabéns pela aula ajudou muito para uma necessidade específica que eu tinha aqui. Uma pergunta, eu posso enviar esses arquivos depois de pronto para algum servidor ou algo que e funcionaria para que eu pudesse fazer online se eu precisar usar e nao estiver no meu local de trabalho?
Que bom ter lhe ajudado meu nobre! Você gostaria de enviar os certificados para o servidor, é isso? Desculpa eu não ter entendido muito bem o que você gostaria. Poder explicar de uma outra maneira para que eu possa te auxiliar melhor?
Eu gostaria de enviar os arquivos xlsm e pptx para um servidor e acessa-los via navegador pelo endereço do diretorio e alterar dados e gerar certificado de uma forma online.@@programandoemvba
Infelizmente não temos suporte para fazer realizado dessa forma. Precisa ser feito de forma local mesmo, ou então deixar em alguma nuvem, dessa forma dar certo.
Olá! Tudo bem?
sou completamente leiga no assunto, mas seu video me ajudou demais!
Unico ponto é que ele dá o mesmo erro que deu no seu na hr de salvar e dar o quit, como não sei nada de programação, não entendi como vc fez para resolver, consegue me ajudar ?
Olá Aline!! Sendo sincero, eu não consegui ajustar, mas o que posso dizer, é que atualmente, o mesmo código está funcionando sem dar essa parada. O que às vezes causa esse bug é algo relacionado a memória, e se for o caso, só reiniciar o computador para normalizar.
Faz o teste e me retorna se teve êxito. Aguardo seu retorno!
@@programandoemvba Refiz tudo e ele ainda dá um erro!
Tempo de execução '424'
Não sei se posso estar fazendo algo errado:
Sub Certificados()
Dim PPT As New PowerPoint.Application
Dim Apr As PowerPoint.Presentation
Dim Slide As PowerPoint.Slide, lin As Byte
If MsgBox("Deseja gerar os certificados?", 36, " Certificado") = 7 Then Exit Sub
Set Apr = PPT.Presentations.Open(ThisWorkbook.Path & "\Reconhecimento1.pptx")
Set Slide = Apr.Slides(1)
lin = 7
While Planilha1.Cells(lin, 1) ""
Slide.Shapes("DE").TextFrame.TextRange.Text = Planilha1.Cells(lin, "A")
Slide.Shapes("Para").TextFrame.TextRange.Text = Planilha1.Cells(lin, "B")
Slide.Shapes("Mensagem").TextFrame.TextRange.Text = Planilha1.Cells(lin, "C")
Slide.Shapes("zecoins").TextFrame.TextRange.Text = Planilha1.Cells(lin, "D")
Apr.ExportAsFixedFormat ThisWorkbook.Path & "\Reconhecimento\" & _
Planilha.Cells(lin, 1) & ".pdf", ppFixedFormatTypePDF
lin = lin + 1
Wend
Apr.Close
PPT.Quit
Set PPT = Nothing
Set Apr = Nothing
Set Slide = Nothing
MsgBox "Certificados gerados com Sucesso!", 64, " Concluído"
End Sub
@@alinesilvabuttura8023 Aqui estava dando erro 424, troquei o nome da planilha e funcionou. Aqui não funciona se eu colocar planilha1, troquei por folha1, que é o nome automático da minha planilha e foi.
Mestre, esqueci de perguntar antes, como inserir um ícone ou logo na parte superior, a esquerda do Formulário?
Mano, dar uma olhadinha na aula 13 da tela de login, e ver se é o que você está procurando.
Professor como crio aquelas #automatica no PowerPoint, fiz igual o que mostrou, porém não puxou as informações da planilha, pelo contrário apagou todas as# que tinha no ppt
Olá!! Você deve ter se passado em algum detalhe no vídeo, tenta assistir novamente com um pouco mais de calma, certeza que você vai encontrar o ponto chave.
@@programandoemvba Infelizmente não encontrei como fazer ficar automático o preenchimento. Até abrir o arquivo com a macro funcionou, mas o preenchimento não. 😟😟
@@juntosanimados2206acho que o que faltou pra vc foi renomear a caixa de texto.
No vídeo está em 7:05
O prof usa alt + F10 e depois renomeia.
Boa trade, preciso adicionar também imagens no meu documento, como eu faria para ele ler o link da imagem que está na minha planilha e colocá-la como imagem no campo destinado no ppt?
Excelente pergunta! Achei tão interessante, que irei trazer como tema do próximo vídeo aqui do canal.
@@programandoemvba ja foi criado esse video?
@@gabrielkenzoutino6586 Já sim amigo, segue o link do vídeo:ua-cam.com/video/AB_uPZAWh8w/v-deo.html
Segue o link do vídeo:ua-cam.com/video/AB_uPZAWh8w/v-deo.html
Bom dia, no Slide.Shades que seria a caixa de texto correto eu gostaria de inserir direto na linha sem caixa de texto qual seria o comando ?
Desculpa, não conseguir entender sua pergunta, poderia explicar de uma outra forma?
@@programandoemvba ao invés de colocar uma caixa de texto no powerpoint Renomeada como "NOME", nao posso deixar somente #nome ? gostaria de saber o comando vba sem caixa de texto. acredito que esse comando abaixo muda sem a caixa de texto né ?
Slide.Shapes("NOME").TextFrame.TextRange.Text = Planilha1.Cells(lin, 1)
Olá bom dia!
O meu código já da erro no início a linha...
Dim PPT As New PowerPoint.Application da erro de compilação, o tipo definido pelo usuário não foi definido.
Desculpa a confusão, esqueci de ativar a compatibilidade com o power point 😅
É isso, temos que habilitar a biblioteca do PowerPoint, para que o Excel possa controlar o mesmo. Que bom que conseguiu identificar. 🤜🏽🤛🏽
Como faço isso???
O meu tbm está dando esse erro
Erro de compilação: era esperado: separador de lista ou )
@@anabalbinasoares160 o que eu fiz foi habilitar o powerPoint, no video mostra como fazer no min 2:44
ola porque se eu fizer desta forma ele nao incrementa o lin slide.Shapes("dados").TextFrame.TextRange.Text = VBA.Replace(slide.Shapes("dados").TextFrame.TextRange.Text, "Nome", Planilha1.Cells(lin, 1))
Se você utilizar o loop Do Until ou Do While, precisa colocar o incremento no final ou inicio do loop, o que não precisa é o For... Next
Boa tarde.
Sub Certificados()
Dim PPT As New PowerPoint.Application
Dim Apr As PowerPoint.Presentation
Dim Slide As PowerPoint.Slide
Set Apr = PPT.Presentations.Open(ThisWorkbook.Path & "\certificadoauto.pptx")
Quando executo com o F5 recebo esta mensagem de erro:
erro de compilação
o tipo definido pelo usuário não foi definido
O que pode estar errado?
Olá! Todas as referências estão com os nomes corretos?
eu tenho um ppt que tem 10 slides, todo dia eu tenho que alterar 4 informações em cada slide, como eu poderia fazer para ir para o próximo slide e alterar ??
As informações são sempre as mesmas para todos os slides?
Parceiro não consigo salvar o arquivo, teria como ajudar
Posta seu código para eu poder te orientar.
Conseguir resolver @@programandoemvba
Maravilha meu caro! Que com que conseguiu solucionar, isso mostra que está dominando cada vez mais a linguagem. Parabéns!!
Teria alguma forma de salvar o Slide em JPG ao invés de PDF?
Tem sim! Seguindo o exemplo do vídeo, só você adaptar o código que salva o slide para esse que vou te mandar:
Apr.Export ThisWorkbook.Path & "\Certificados\" & Nome, "jpg"
@@programandoemvba Não funciona como salvando em .pdf. Aqui, o que acontece é a criação de uma pasta nome e não gera todos os certificados, apenas o último. Como se substituisse os arquivo exportado pelo último.
@@eduardoasada4807 de fato não funcionará, se observar bem, esse modo é para salvar como imagem, se quiser salvar como PDF, o modo é esse que vou mandar no exemplo abaixo:
Apr.ExportAsFixedFormat ThisWorkbook.Path & "\Certificados\" & Nome & ".pdf", ppFixedFormatTypePDF
Não funciona, da erro desde o momento que eu coloco a linha
Slides.Shapes("Nome")........
já não roda mais o script
Olá João! Você seguindo o passo a passo exatamente como está vídeo, ainda sim está causando erros? Outra pergunta, a forma que está no PowerPoint, você renomeou para Nome? Porque esse pode ser o problema, ele está tentando localizar a forma com esse nome "Nome" e não encontrou.
Fiz exatamente como no vídeo, também renomeei para Nome estranho ocorrer esse erro tentarei novamente@@programandoemvba
Pode compartilhar o seu código?
O meu esta dando erro de tempo de execussão 424
Certifica se você habilitou a biblioteca do PowerPoint, mostro nos primeiros minutos do vídeo.
Meu ALT + F11 não funcionou.
Pessoal, resolvi da seguinte forma: Fui em arquivos > opções > habilitei os macros e a opção de desenvolvedor
Sthefanny, caso você esteja utilizando notebook, utilize a tecla FN também (ALT+FN+F11)
O open nao funcionou
Manda seus código aqui para eu analisar.
Assim que coloco "Set Apr = PPT.Presentations.Open(ThisWorkbook.Path & "\SãoJoão.pptx")" da Erro de automação (Erro 440), falando que o método "OPen" do objeto "Presentation" falhou.
Olá! Amigo, você referenciou a biblioteca que informei no início do vídeo?
@@programandoemvba Sim.
Certifica se o arquivo está com o nome e extensão correta, e se o mesmo está no mesmo local que o excel.