In questo video usiamo chatgpt per creare una presentazione in powerpoint,usando le MACRO e VBA.
PROMPT DA USARE:
mi serve del codice VBA per creare creare una presentazione di 4 slide in powerpoint ultima versione, che parla di chatgpt. La prima slide è solo il titolo senza punti elenchi o note. Nelle altre 3 slide aggiungi anche qualche nota per il presentatore, da poter leggere durante la presentazione. Non mettere commenti nel codice, non salvare e non chiudere powerpoint, perchè voglio prima dare un’ occhiata a ciò che hai creato. Non aggiungere immagini in quanto non conosci le cartelle dove recuperarle. Stai attento a non sovrapporre i vari testi. Usa frasi brevi e prediligi elenchi puntati.
1) 00:00 Intro
2) 00:19 Abilitazione VBA
3) 01:08 Prompt a CHATGPT
4) 03:01 Creazione e Lancio Macro
5) 03:47 Designer di Powerpoint
6) 04:34 Degug
7) 05:24 Conclusione
Codice generato:
Sub CreaPresentazioneChatGPT()
‘ Crea un oggetto PowerPoint
Dim objPPT As Object
Set objPPT = CreateObject(“PowerPoint.Application”)
‘ Crea una nuova presentazione
Dim objPres As Object
Set objPres = objPPT.Presentations.Add
‘ Mostra PowerPoint
objPPT.Visible = True
‘ Slide 1: Titolo
Dim objSlide1 As Object
Set objSlide1 = objPres.Slides.Add(1, 1) ‘ 1 indica il primo indice di slide e il secondo 1 indica il layout del titolo
objSlide1.Shapes.Title.TextFrame.TextRange.Text = “ChatGPT: Il rivoluzionario modello di linguaggio”
‘ Slide 2: Introduzione a ChatGPT
Dim objSlide2 As Object
Set objSlide2 = objPres.Slides.Add(2, 2) ‘ Layout con titolo ed elenco puntato
objSlide2.Shapes.Title.TextFrame.TextRange.Text = “Introduzione a ChatGPT”
objSlide2.Shapes(2).TextFrame.TextRange.Text = “Cosa è ChatGPT?” & vbCrLf & “Sviluppato da OpenAI” & vbCrLf & “Basato sull’architettura GPT-4”
objSlide2.NotesPage.Shapes(2).TextFrame.TextRange.Text = “ChatGPT è un avanzato modello di linguaggio sviluppato da OpenAI, basato sull’architettura GPT-4.”
‘ Slide 3: Funzionalità di ChatGPT
Dim objSlide3 As Object
Set objSlide3 = objPres.Slides.Add(3, 2) ‘ Layout con titolo ed elenco puntato
objSlide3.Shapes.Title.TextFrame.TextRange.Text = “Funzionalità di ChatGPT”
objSlide3.Shapes(2).TextFrame.TextRange.Text = “Generazione di testo” & vbCrLf & “Comprensione del linguaggio naturale” & vbCrLf & “Risposte coerenti e pertinenti”
objSlide3.NotesPage.Shapes(2).TextFrame.TextRange.Text = “ChatGPT è in grado di generare testo, comprendere il linguaggio naturale e fornire risposte coerenti e pertinenti alle domande degli utenti.”
‘ Slide 4: Applicazioni di ChatGPT
Dim objSlide4 As Object
Set objSlide4 = objPres.Slides.Add(4, 2) ‘ Layout con titolo ed elenco puntato
objSlide4.Shapes.Title.TextFrame.TextRange.Text = “Applicazioni di ChatGPT”
objSlide4.Shapes(2).TextFrame.TextRange.Text = “Assistente virtuale” & vbCrLf & “Creazione di contenuti” & vbCrLf & “Formazione e supporto”
objSlide4.NotesPage.Shapes(2).TextFrame.TextRange.Text = “ChatGPT può essere utilizzato come assistente virtuale, per la creazione di contenuti e per la formazione e il supporto a utenti e professionisti.”
End Sub
#chatgpt #powerpointchagpt #slideschatgpt
Source
