Comment travailler avec les zones de message et de saisie dans PowerPoint VBA ?

En parcourant les commentaires, j'ai vu quelques questions de lecteurs sur la façon de travailler avec les boîtes de saisie et de message Visual Basic dans PowerPoint.

Dans ce didacticiel, nous fournirons une connaissance de base très basique pour vous aider à utiliser ces fonctionnalités lors de l'automatisation de la création de votre présentation.

Configuration de l'onglet Développeur

Tout d'abord, nous devons activer l'environnement de développement pour PowerPoint. Suivez ce tutoriel pour paramétrer votre onglet de développement.

Dans PowerPoint, accédez au menu Développeur et appuyez sur Visual Basic.

Dans l'arborescence du projet, cliquez avec le bouton droit sur votre présentation, appuyez sur Insérer, puis sélectionnez Module. Un nouveau module VBA sera créé, c'est l'endroit où vous écrirez votre code.

Boîtes de message dans PowerPoint

Les boîtes de message sont en quelque sorte explicites, leur objectif est d'afficher des informations utiles à l'utilisateur final. Écrivez le code suivant dans votre module :

Sub simplemessagebox()
MsgBox ("This is a simple message box")
End Sub

Appuyez sur F5 ou Exécuter et voyez le résultat :

Exemple de message et de boîte de saisie

Contrairement aux boîtes de message, les boîtes de saisie sont utilisées pour obtenir des commentaires de l'utilisateur. Regardons l'exemple ci-dessous. Le script insère automatiquement de nouvelles diapositives dans la présentation.

Voici ce que nous allons implémenter :

1. Nous demanderons d'abord à l'utilisateur le nombre de diapositives à ajouter (à l'aide d'une zone de saisie).
2. Nous informerons ensuite l'utilisateur du nombre de diapositives à créer (à l'aide d'une boîte de message)
3. Enfin, allez de l'avant et créez les diapositives par programme.
4. Enfin, nous enregistrerons la présentation modifiée

Sub CreateSlidesMessage()

Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult

' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")

'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")

'create the slides
If MsgResult = vbOK Then
    For i = 1 To NumSlides
        Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    Next i
    'Save the Presentation
    ActivePresentation.SaveAs("Your Presentation.pptx")
    MsgBox ("Presentation Saved.")
End If

End Sub

J'espère que cela a aidé, n'hésitez pas à laisser des commentaires si nécessaire.