Naviguer facilement dans PowerPoint
Naviguez facilement dans votre présentation PowerPoint avec une liste déroulante !
🎯 Dans ce tutoriel, je vous explique comment naviguer facilement dans votre présentation PowerPoint avec une liste déroulante !
✅ Ainsi, vous gagnez du temps, en accédant directement à la diapositive souhaitée, ce qui donne un aspect plus professionnel à votre présentation, au lieu de faire défiler manuellement chaque diapositive.
👍 N'hésitez pas à tester cette technique pour naviguer facilement dans votre présentation Powerpoint !
Voir la vidéo pour suivre les différentes étapes :
Pour vous entraîner, vous pouvez télécharger le fichier PowerPoint utilisé dans la vidéo :
📌↪️→ Code VBA à utiliser pour naviguer facilement dans votre présentation PowerPoint :
Private Sub ComboBox1_DropButtonClick()
If ComboBox1.ListCount = 0 Then
ComboBox1.AddItem "Déroulé du projet"
ComboBox1.AddItem "Objectifs"
ComboBox1.AddItem "Semaine 1"
ComboBox1.AddItem "Semaine 2"
ComboBox1.AddItem "Semaine 3"
ComboBox1.AddItem "Semaine 4"
' Ajoutez d'autres titres au besoin
End If
End Sub
Private Sub ComboBox1_Change()
' Naviguer vers la diapositive sélectionnée en fonction du titre choisi
Dim slideTitle As String
slideTitle = ComboBox1.Value
Dim slideIndex As Integer
Select Case slideTitle
Case "Déroulé du projet"
slideIndex = 1 ' Numéro de la diapositive pour "Déroulé du projet"
Case "Objectifs"
slideIndex = 2 ' Numéro de la diapositive pour "Objectifs"
Case "Semaine 1"
slideIndex = 3 ' Numéro de la diapositive pour "Semaine 1"
Case "Semaine 2"
slideIndex = 4 ' Numéro de la diapositive pour "Semaine 2"
Case "Semaine 3"
slideIndex = 5 ' Numéro de la diapositive pour "Semaine 3"
Case "Semaine 4"
slideIndex = 6 ' Numéro de la diapositive pour "Semaine 4"
' Ajoutez d'autres cas au besoin
Case Else
slideIndex = 0
End Select
If slideIndex > 0 Then
ActivePresentation.SlideShowWindow.View.GotoSlide slideIndex
End If
ComboBox1.Value = ""
End Sub
Un autre tutoriel qui pourrait vous intéresser :
