Génération de code VBA pour PowerPoint

>_Prompt utilisé : Peux-tu me donner le code VBA pour créer automatiquement un diaporama de 5 diapositives sous PowerPoint, avec titres et contenus textuels présentant l'utilité d'utiliser ChatGPT dans un contexte bureautique.

>_IA interrogée :ChatGPT 3.5

Sub CreerDiaporama()

    Dim pptApp As Object
    Dim pptPrs As Object
    Dim pptSlide As Object
    
    ' Créer une nouvelle instance de PowerPoint
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True ' Afficher PowerPoint
    
    ' Créer une nouvelle présentation
    Set pptPrs = pptApp.Presentations.Add
    
    ' Ajouter la première diapositive
    Set pptSlide = pptPrs.Slides.Add(1, ppLayoutTitle)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "L'Impact de ChatGPT dans le Domaine Bureautique"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "Introduction à ChatGPT et son rôle dans le domaine bureautique."
    
    ' Ajouter la deuxième diapositive
    Set pptSlide = pptPrs.Slides.Add(2, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "Comprendre ChatGPT"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "Explication de ChatGPT comme un modèle de langage pré-entraîné capable de générer du texte de manière contextuelle."
    
    ' Ajouter la troisième diapositive
    Set pptSlide = pptPrs.Slides.Add(3, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "Applications Pratiques dans le Domaine Bureautique"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "Exemples d'utilisation de ChatGPT dans la simplification de tâches bureautiques."
    
    ' Ajouter la quatrième diapositive
    Set pptSlide = pptPrs.Slides.Add(4, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "Avantages et Utilisations"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "Avantages de l'utilisation de ChatGPT dans le contexte bureautique. Exemples de scénarios d'utilisation : rédaction assistée, analyse de données, etc."
    
    ' Ajouter la cinquième diapositive
    Set pptSlide = pptPrs.Slides.Add(5, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "Conclusion et Questions"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "Résumé des points clés. Encouragement à poser des questions ou à discuter de l'impact de ChatGPT dans le domaine bureautique."
    
End Sub

Vous pouvez ajuster le code en fonction de vos besoins spécifiques. Pour exécuter ce code, ouvrez l’éditeur VBA dans Excel (Alt + F11), insérez un nouveau module (Alt + I, M), puis collez le code dans le module. Ensuite, exécutez la macro à partir du bouton “Run” (F5).