Comment utiliser une zone de liste déroulante VBA dans PowerPoint

Instructions

1. Lancez PowerPoint et cliquez sur "Nouvelle diapositive" pour afficher le Thème Bureau de diapositives. Cliquez "Vide" pour insérer une diapositive vierge. Insérez un autre diapositive en utilisant la même technique.

2. Clique le "Développeur" onglet. Cliquez "Boîte combo" sur "Contrôles" volet et cliquez sur un emplacement sur la diapositive où vous voulez placer la zone de liste déroulante. Ajouter un bouton en utilisant la même technique.

3. Double-cliquez sur le bouton pour créer un événement de clic et ajoutez le code suivant pour ajouter deux éléments au contrôle de zone de liste déroulante:

   ComboBox1.AddItem ("Diapositive 2")

   ComboBox1.AddItem ("Diapositive 3")

4. Revenez à PowerPoint et cliquez sur la diapositive numéro un dans le volet gauche de l'écran de votre ordinateur. Double-cliquez sur le contrôle de zone de liste déroulante pour créer un événement de changement de contrôle. Ajouter le code suivant à passer les diapositives en utilisant la liste déroulante:

   Si (= ComboBox1.Text "Diapositive 2") Alors

    Avec SlideShowWindows (1) .View
   
   
   .GotoSlide 2
   End With
   Autre
   Avec SlideShowWindows (1) .View
   .GotoSlide 3
   End With
   Fin si

5. Revenez à PowerPoint et cliquez sur le "Diaporama" menu. Cliquez "Depuis le début" et cliquez sur le bouton de commande pour remplir la zone de liste déroulante. Sélectionnez une diapositive pour aller à partir de la liste des éléments de liste déroulante.