Como usar Inteligência Artificial para produzir apresentações Powerpoint

Indo direto ao assunto, vamos convir. Fazer apresentações é chato, é chatíssimo. o tempo que se gasta fazendo isso você estaria,sei lá, vendo vídeo de gatinho no Tik Tok. Claro, a Inteligência Artificial está aí para nos ajudar. Será que ela pode salvar-nos do trabalho?

De início, vamos deixar claro os parâmetros: o programa de apresentação que eu usei foi o Powerpoint da suíte Office 365, instalado no meu PC. Na versão online, eu não achei, sendo uma versão mais simplificada e gratuita (eu já falei que você pode usar o Office digrátis, bastando ter uma conta da Microsoft, e o básico dele vai te atender perfeitamente)

Eu testei a IA do Bing e por um motivo bem simples: o Chat GPT da OpenAI não funcionou direito; muito provavelmente pelo do Bing ser exatamente da Microsoft que compreende muito bem a sua suíte, que é que nem a Adobe: quem sabe usar um dos programas da Suíte não terá dificuldade de se achar com os demais programas da mesma suíte.

Eu entrei com o seguinte prompt:

Escreva um código VBA para uma apresentação do powerpoint sobre início da ciência moderna para alunos do ensino médio, começando pelos filósofos gregos, separação da filosofia e ciência e método científico. Eu preciso de 10 slides.

Logo de cara vocês percebem que eu cometi um erro, e se não entenderam, vou explicar: eu pedi dez slides, mas na verdade são 9. O primeiro é o título do slide, e eu queria 10 slides sobre o assunto. Bem, vamos prosseguir daqui.

O Chat GPT da OpenAI retornou:

	Sub CriarApresentacaoCienciaModerna()
	' Declaração de variáveis
	Dim pptApp As Object
	Dim pptPresentation As Object
	Dim pptSlide As Object
	Dim i As Integer
	' Cria uma nova instância do aplicativo PowerPoint
	Set pptApp = CreateObject("PowerPoint.Application")
	pptApp.Visible = True
	' Cria uma nova apresentação
	Set pptPresentation = pptApp.Presentations.Add
	' Slide 1: Título
	Set pptSlide = pptPresentation.Slides.Add(1, ppLayoutTitle)
	pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Início da Ciência Moderna"
	pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Filósofos Gregos, Separação da Filosofia e Ciência, Método Científico"
	' Slides 2 a 10: Conteúdo
	For i = 2 To 10
	Set pptSlide = pptPresentation.Slides.Add(i, ppLayoutText)
	Select Case i
	Case 2
	pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Filósofos Gregos"
	pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "A filosofia grega antiga foi o ponto de partida da ciência moderna. Pensadores como Tales de Mileto, Pitágoras e Aristóteles exploraram questões científicas."
	Case 3
	pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Separação da Filosofia e Ciência"
	pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "A separação entre filosofia e ciência começou a ocorrer durante o Renascimento. A ênfase na observação e experimentação marcou o início da ciência moderna."
	Case 4
	pptSlide.Shapes.Title.TextFrame.TextRange.Text = "Método Científico"
	pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "O método científico, baseado na observação, experimentação, hipóteses e testes, tornou-se fundamental para a ciência moderna e o avanço do conhecimento."
	Case Else
	' Slides vazios para adicionar conteúdo adicional, se desejado
	End Select
	Next i
	' Libera a memória
	Set pptSlide = Nothing
	Set pptPresentation = Nothing
	Set pptApp = Nothing
	End Sub

view raw

gistfile1.txt

hosted with ❤ by GitHub

O que se faz com este código? Bem, se o menu Modo Desenvolvedor do seu Powerpoint não estiver ativado, você pode pedir diretamente para abrir, bastando usar o Atalho Alt+F11. No botão indicado, escolha a opção “Módulo”, que vai abrir o editor de módulo.

Cole o código na janela e pronto. Mande rodar no botão PLAY ou mete F5 e a sua apresentação vai ser criada.

Pois é. eu não fiquei impressionado. E não adianta pedir pra colocar imagens, ele avisa que irá colocar o link para buscar no seu HD, o que eu não acho bom. Primeiro porque se a imagem trocar de diretório, ele não funciona, e em segundo lugar, ele deu pau quando rodou o código assim. Vejamos o Bing, Mesmo prompt.

	Sub CriarApresentacao()
	' Cria uma nova apresentação
	Dim ppt As Presentation
	Set ppt = Presentations.Add
	' Adiciona um slide de título
	Dim slideTitulo As Slide
	Set slideTitulo = ppt.Slides.Add(1, ppLayoutTitle)
	slideTitulo.Shapes.Title.TextFrame.TextRange.Text = "Início da Ciência Moderna"
	slideTitulo.Shapes(2).TextFrame.TextRange.Text = "Uma apresentação para alunos do ensino médio"
	' Adiciona um slide sobre filósofos gregos
	Dim slideFilosofosGregos As Slide
	Set slideFilosofosGregos = ppt.Slides.Add(2, ppLayoutText)
	slideFilosofosGregos.Shapes.Title.TextFrame.TextRange.Text = "Filósofos Gregos"
	slideFilosofosGregos.Shapes(2).TextFrame.TextRange.Text = "Os filósofos gregos, como Platão e Aristóteles, foram os primeiros a tentar entender o mundo de maneira racional e lógica. Eles criaram teorias sobre a natureza do universo, a origem da vida e o comportamento humano."
	' Adiciona um slide sobre separação da filosofia e ciência
	Dim slideSeparacao As Slide
	Set slideSeparacao = ppt.Slides.Add(3, ppLayoutText)
	slideSeparacao.Shapes.Title.TextFrame.TextRange.Text = "Separação da Filosofia e Ciência"
	slideSeparacao.Shapes(2).TextFrame.TextRange.Text = "Durante a Renascença, houve uma separação entre a filosofia e a ciência. A filosofia passou a se concentrar em questões mais abstratas, enquanto a ciência começou a se basear em observações e experimentos para entender o mundo."
	' Adiciona um slide sobre método científico
	Dim slideMetodoCientifico As Slide
	Set slideMetodoCientifico = ppt.Slides.Add(4, ppLayoutText)
	slideMetodoCientifico.Shapes.Title.TextFrame.TextRange.Text = "Método Científico"
	slideMetodoCientifico.Shapes(2).TextFrame.TextRange.Text = "O método científico é uma maneira sistemática de fazer perguntas e testar hipóteses. Ele envolve observação, formulação de hipóteses, experimentação e análise de dados para chegar a conclusões."
	' Adiciona um slide sobre Galileu Galilei
	Dim slideGalileu As Slide
	Set slideGalileu = ppt.Slides.Add(5, ppLayoutText)
	slideGalileu.Shapes.Title.TextFrame.TextRange.Text = "Galileu Galilei"
	slideGalileu.Shapes(2).TextFrame.TextRange.Text = "Galileu Galilei foi um dos primeiros cientistas a usar o método científico. Ele realizou experimentos para testar suas teorias sobre o movimento dos corpos e fez importantes descobertas sobre o universo."
	' Adiciona um slide sobre Isaac Newton
	Dim slideNewton As Slide
	Set slideNewton = ppt.Slides.Add(6, ppLayoutText)
	slideNewton.Shapes.Title.TextFrame.TextRange.Text = "Isaac Newton"
	slideNewton.Shapes(2).TextFrame.TextRange.Text = "Isaac Newton é considerado um dos maiores cientistas de todos os tempos. Ele formulou as leis do movimento e da gravitação universal, que explicam como os objetos se movem e interagem uns com os outros."
	' Adiciona um slide sobre René Descartes
	Dim slideDescartes As Slide
	Set slideDescartes = ppt.Slides.Add(7, ppLayoutText)
	slideDescartes.Shapes.Title.TextFrame.TextRange.Text = "René Descartes"
	slideDescartes.Shapes(2).TextFrame.TextRange.Text = "René Descartes foi um filósofo e matemático francês que desenvolveu o método cartesiano, que é uma maneira sistemática de resolver problemas e chegar a conclusões lógicas."
	' Adiciona um slide sobre Francis Bacon
	Dim slideBacon As Slide
	Set slideBacon = ppt.Slides.Add(8, ppLayoutText)
	slideBacon.Shapes.Title.TextFrame.TextRange.Text = "Francis Bacon"
	slideBacon.Shapes(2).TextFrame.TextRange.Text = "Francis Bacon foi um filósofo inglês que defendeu o uso do método científico para entender o mundo. Ele acreditava que a ciência deveria ser baseada em observações e experimentos, em vez de teorias abstratas."
	' Adiciona um slide sobre Avanços na Ciência
	Dim slideAvancos As Slide
	Set slideAvancos = ppt.Slides.Add(9, ppLayoutText)
	slideAvancos.Shapes.Title.TextFrame.TextRange.Text = "Avanços na Ciência"
	slideAvancos.Shapes(2).TextFrame.TextRange.Text = "A ciência moderna trouxe muitos avanços importantes, como a descoberta da eletricidade, o desenvolvimento da medicina moderna e a exploração do espaço."
	' Adiciona um slide de conclusão
	Dim slideConclusao As Slide
	Set slideConclusao = ppt.Slides.Add(10, ppLayoutText)
	slideConclusao.Shapes.Title.TextFrame.TextRange.Text = "Conclusão"
	slideConclusao.Shapes(2).TextFrame.TextRange.Text = "O início da ciência moderna foi marcado pela separação da filosofia e da ciência e pelo desenvolvimento do método científico. Esses avanços permitiram aos cientistas fazer importantes descobertas e mudar nossa compreensão do mundo."
	End Sub

view raw

gistfile1.txt

hosted with ❤ by GitHub

O resultado veio muito melhor, com os dez slides: o primeiro sendo a capa e o último a conclusão. Foi o que eu mandei e foi o que ele fez, mas nada que você não possa refinar mandando adicionar outros slides.

O screenshot não mostra, mas veio vários cientistas. Testem vocês.

De novo, ele não adiciona as imagens, elas ficarão externas. O que eu não falei é que o Powerpoint pode fazer busca de imagens na internet  e adicioná-las lá.

Sendo da Microsoft, experimentei perguntar se ele poderia já salvar a apresentação direto no meu Onedrive, já que eu já estava logado na conta da MS quando acessei o Bing, mas ele disse que não tem como interagir com meu Onedrive.

Talvez, o Copilot prometido pra Suíte Office faça isso, mas estou com preguiça de usar essas coisas de VPN (além de cagaço) para testar uma conta gringa. Melhor deixar como está.

E sobre o Bard do Google? Bem, eu pedi para ele gerar um código Google Script e ele sequer funcionou. Mesmo porque, se fosse ara funcionar não seria do Google.